不同的容器里实现 RadioButton的单选

请教一个各位牛人一个问题，如图：    （问题解决，见后面的解决方案~~）

怎么在不同的winform容器(GroupBox)里实现 RadioButton （如图中两个“详细照会”）的单选，请各位牛人给出实现的思路，不甚感谢。

GroupBox（） 送り状情報1，送り状情報2......是动态生成的。

以下是具体的生成代码：

 

     Private   Sub  InitProcess()

         If  (m_DataVale  Is   Nothing )  Then
             Me .Visible  =   False
             Return
         End   If
         If  m_DataVale.Rows.Count  <   1   Then
             Me .Visible  =   False
             Return
         End   If

         Dim  intDataCount  As   Integer   =  m_DataVale.Rows.Count

         Dim  intGroupX  As   Integer   =   8
         Dim  intGroupY  As   Integer   =   5
         Dim  intGroupHeight  As   Integer   =   170
         Dim  intGroupWidth  As   Integer   =  GroupBox1.Width  -   17
         Dim  group(intDataCount)  As  System.Windows.Forms.GroupBox

         ' 詳細照会
         Dim  RB_INFO(intDataCount)  As  System.Windows.Forms.RadioButton
         ' 送付先変更
         Dim  LB_ARR_FIXED_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_ARR_FIXED(intDataCount)  As  System.Windows.Forms.Label
         ' 問番
         Dim  LB_CO_DELIVERY_NO_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_CO_DELIVERY_NO(intDataCount)  As  System.Windows.Forms.Label
         ' 発送ロット
         Dim  LB_HASSOU_LOT_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_HASSOU_LOT(intDataCount)  As  System.Windows.Forms.Label
         ' 発送管理No
         Dim  LB_LOT_SEQ_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_LOT_SEQ(intDataCount)  As  System.Windows.Forms.Label
         ' 発送日
         Dim  LB_SENDDATE_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_SENDDATE(intDataCount)  As  System.Windows.Forms.Label
         ' 送り状定義
         Dim  LB_LABEL_DEF_NM_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_LABEL_DEF_NM(intDataCount)  As  System.Windows.Forms.Label
         ' 最新配送状況
         Dim  LB_STATS_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_STATS(intDataCount)  As  System.Windows.Forms.Label
         ' メモ()
         Dim  LB_TB_MEMO(intDataCount)  As  System.Windows.Forms.Label
         Dim  TB_MEMO(intDataCount)  As  System.Windows.Forms.TextBox

         Dim  i  As   Integer
         For  i  =   0   To  intDataCount  -   1
             ' 送り状情報 連番
            group(i)  =   New  System.Windows.Forms.GroupBox
            group(i).Text  =   " 送り状情報 "   &  i  +   1
            group(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            group(i).Height  =  intGroupHeight
            group(i).Width  =  intGroupWidth
            group(i).Location  =   New  System.Drawing.Point(intGroupX, ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i)

             ' 詳細照会
            RB_INFO(i)  =   New  System.Windows.Forms.RadioButton
            RB_INFO(i).Text  =   " 詳細照会 "
            RB_INFO(i).Location  =   New  System.Drawing.Point( 10 ,  15 )
            RB_INFO(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
             ' 送付先変更
            LB_ARR_FIXED_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_ARR_FIXED_TITLE(i).Text  =   " 送付先変更 "
            LB_ARR_FIXED_TITLE(i).Location  =   New  System.Drawing.Point( 10 ,  40 )
            LB_ARR_FIXED_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_ARR_FIXED_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_ARR_FIXED_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_ARR_FIXED_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_ARR_FIXED_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_ARR_FIXED(i)  =   New  System.Windows.Forms.Label
            LB_ARR_FIXED(i).Text  =   " 有 "
            LB_ARR_FIXED(i).Location  =   New  System.Drawing.Point( 112 ,  40 )
            LB_ARR_FIXED(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_ARR_FIXED(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_ARR_FIXED(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_ARR_FIXED(i).Size  =   New  System.Drawing.Size( 30 ,  23 )
            LB_ARR_FIXED(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_ARR_FIXED(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 送付先変更 " ))

             ' 問番
            LB_CO_DELIVERY_NO_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_CO_DELIVERY_NO_TITLE(i).Text  =   " 問番 "
            LB_CO_DELIVERY_NO_TITLE(i).Location  =   New  System.Drawing.Point( 10 ,  64 )
            LB_CO_DELIVERY_NO_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_CO_DELIVERY_NO_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_CO_DELIVERY_NO_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_CO_DELIVERY_NO_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_CO_DELIVERY_NO_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_CO_DELIVERY_NO(i)  =   New  System.Windows.Forms.Label
            LB_CO_DELIVERY_NO(i).Location  =   New  System.Drawing.Point( 112 ,  64 )
            LB_CO_DELIVERY_NO(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_CO_DELIVERY_NO(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_CO_DELIVERY_NO(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_CO_DELIVERY_NO(i).Size  =   New  System.Drawing.Size( 128 ,  23 )
            LB_CO_DELIVERY_NO(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_CO_DELIVERY_NO(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 問番 " ))
             ' 発送ロット
            LB_HASSOU_LOT_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_HASSOU_LOT_TITLE(i).Text  =   " 発送ロット "
            LB_HASSOU_LOT_TITLE(i).Location  =   New  System.Drawing.Point( 248 ,  64 )
            LB_HASSOU_LOT_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_HASSOU_LOT_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_HASSOU_LOT_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_HASSOU_LOT_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_HASSOU_LOT_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_HASSOU_LOT(i)  =   New  System.Windows.Forms.Label
            LB_HASSOU_LOT(i).Location  =   New  System.Drawing.Point( 350 ,  64 )
            LB_HASSOU_LOT(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_HASSOU_LOT(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_HASSOU_LOT(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_HASSOU_LOT(i).Size  =   New  System.Drawing.Size( 108 ,  23 )
            LB_HASSOU_LOT(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_HASSOU_LOT(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送ロット " ))
             ' 発送管理No
            LB_LOT_SEQ_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_LOT_SEQ_TITLE(i).Text  =   " 発送管理No "
            LB_LOT_SEQ_TITLE(i).Location  =   New  System.Drawing.Point( 464 ,  64 )
            LB_LOT_SEQ_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LOT_SEQ_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_LOT_SEQ_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_LOT_SEQ_TITLE(i).Size  =   New  System.Drawing.Size( 111 ,  23 )
            LB_LOT_SEQ_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_LOT_SEQ(i)  =   New  System.Windows.Forms.Label
            LB_LOT_SEQ(i).Text  =   " H2232+5645 "
            LB_LOT_SEQ(i).Location  =   New  System.Drawing.Point( 575 ,  64 )
            LB_LOT_SEQ(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LOT_SEQ(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_LOT_SEQ(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_LOT_SEQ(i).Size  =   New  System.Drawing.Size( 128 ,  23 )
            LB_LOT_SEQ(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_LOT_SEQ(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送管理No " ))
             ' 発送日
            LB_SENDDATE_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_SENDDATE_TITLE(i).Text  =   " 発送日 "
            LB_SENDDATE_TITLE(i).Location  =   New  System.Drawing.Point( 708 ,  64 )
            LB_SENDDATE_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_SENDDATE_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_SENDDATE_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_SENDDATE_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_SENDDATE_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_SENDDATE(i)  =   New  System.Windows.Forms.Label
            LB_SENDDATE(i).Location  =   New  System.Drawing.Point( 810 ,  64 )
            LB_SENDDATE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_SENDDATE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_SENDDATE(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_SENDDATE(i).Size  =   New  System.Drawing.Size( 100 ,  23 )
            LB_SENDDATE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_SENDDATE(i).Text  =  mdlFunction.FormatDataToYMD(mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送日 " )))
             ' 送り状定義
            LB_LABEL_DEF_NM_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_LABEL_DEF_NM_TITLE(i).Text  =   " 送り状定義 "
            LB_LABEL_DEF_NM_TITLE(i).Location  =   New  System.Drawing.Point( 10 ,  88 )
            LB_LABEL_DEF_NM_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LABEL_DEF_NM_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_LABEL_DEF_NM_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_LABEL_DEF_NM_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_LABEL_DEF_NM_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_LABEL_DEF_NM(i)  =   New  System.Windows.Forms.Label
            LB_LABEL_DEF_NM(i).Location  =   New  System.Drawing.Point( 112 ,  88 )
            LB_LABEL_DEF_NM(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LABEL_DEF_NM(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_LABEL_DEF_NM(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_LABEL_DEF_NM(i).Size  =   New  System.Drawing.Size( 346 ,  23 )
            LB_LABEL_DEF_NM(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_LABEL_DEF_NM(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 送り状定義 " ))
             ' 最新配送状況 
            LB_STATS_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_STATS_TITLE(i).Text  =   " 最新配送状況 "
            LB_STATS_TITLE(i).Location  =   New  System.Drawing.Point( 464 ,  88 )
            LB_STATS_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_STATS_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_STATS_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_STATS_TITLE(i).Size  =   New  System.Drawing.Size( 111 ,  23 )
            LB_STATS_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_STATS(i)  =   New  System.Windows.Forms.Label
            LB_STATS(i).Location  =   New  System.Drawing.Point( 575 ,  88 )
            LB_STATS(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_STATS(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_STATS(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_STATS(i).Size  =   New  System.Drawing.Size( 128 ,  23 )
            LB_STATS(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_STATS(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 最新配送状況 " ))
             ' メモ
            LB_TB_MEMO(i)  =   New  System.Windows.Forms.Label
            LB_TB_MEMO(i).Text  =   " メモ "
            LB_TB_MEMO(i).Location  =   New  System.Drawing.Point( 10 ,  112 )
            LB_TB_MEMO(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_TB_MEMO(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_TB_MEMO(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_TB_MEMO(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_TB_MEMO(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            TB_MEMO(i)  =   New  System.Windows.Forms.TextBox
            TB_MEMO(i).Location  =   New  System.Drawing.Point( 112 ,  112 )
            TB_MEMO(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            TB_MEMO(i).TextAlign  =  System.Windows.Forms.HorizontalAlignment.Left
            TB_MEMO(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            TB_MEMO(i).Size  =   New  System.Drawing.Size( 800 ,  46 )
            TB_MEMO(i).Multiline  =   True
            TB_MEMO(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            TB_MEMO(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " メモ " ))

            group(i).Controls.Add(RB_INFO(i))
            group(i).Controls.Add(LB_ARR_FIXED_TITLE(i))
            group(i).Controls.Add(LB_ARR_FIXED(i))
            group(i).Controls.Add(LB_CO_DELIVERY_NO_TITLE(i))
            group(i).Controls.Add(LB_CO_DELIVERY_NO(i))
            group(i).Controls.Add(LB_HASSOU_LOT_TITLE(i))
            group(i).Controls.Add(LB_HASSOU_LOT(i))
            group(i).Controls.Add(LB_LOT_SEQ_TITLE(i))
            group(i).Controls.Add(LB_LOT_SEQ(i))
            group(i).Controls.Add(LB_SENDDATE_TITLE(i))
            group(i).Controls.Add(LB_SENDDATE(i))
            group(i).Controls.Add(LB_LABEL_DEF_NM_TITLE(i))
            group(i).Controls.Add(LB_LABEL_DEF_NM(i))
            group(i).Controls.Add(LB_STATS_TITLE(i))
            group(i).Controls.Add(LB_STATS(i))
            group(i).Controls.Add(LB_TB_MEMO(i))
            group(i).Controls.Add(TB_MEMO(i))
            GroupBox1.Controls.Add(group(i))
         Next

         If  ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i  >   Me .Height  Then
            GroupBox1.Height  =  ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i
         Else
            GroupBox1.Height  =   Me .Height
         End   If
        m_ArrRB_INFO  =  RB_INFO
        m_ArrLB_ARR_FIXED  =  LB_ARR_FIXED
        m_ArrLB_CO_DELIVERY_NO  =  LB_CO_DELIVERY_NO
        m_ArrLB_HASSOU_LOT  =  LB_HASSOU_LOT
        m_ArrLB_SENDDATE  =  LB_SENDDATE
        m_ArrLB_LABEL_DEF_NM  =  LB_LABEL_DEF_NM
        m_ArrLB_STATS  =  LB_STATS
        m_ArrTB_MEMO  =  TB_MEMO
     End Sub

 

也希望DuDu 能原谅我这种提问的方式，不要删贴啊~~！谢谢！

 

解决后的代码：

Imports  BusinessSSP
Public   Class  GroupRepeate
     Inherits  System.Windows.Forms.UserControl
     Dim  m_DataVale  As  DataTable

     Public   Property  DataVale()  As  DataTable
         Get
             Return  m_DataVale
         End   Get
         Set ( ByVal  Value  As  DataTable)
            m_DataVale  =  Value
         End   Set
     End Property

     Public   Shadows   Event  GotFocus( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)

     ' Dim intDataCount As Integer
     ' Public Property DataCount() As Integer
     '     Get
     '         Return intDataCount
     '     End Get
     '     Set(ByVal Value As Integer)
     '         intDataCount = Value
     '     End Set
     ' End Property

     ' 詳細照会
     Private  m_ArrRB_INFO()  As  System.Windows.Forms.RadioButton
     Public   Property  ArrRB_INFO()  As  System.Windows.Forms.RadioButton()
         Get
             Return  m_ArrRB_INFO
         End   Get
         Set ( ByVal  Value()  As  System.Windows.Forms.RadioButton)
            m_ArrRB_INFO  =  Value
         End   Set
     End Property
     ' 送付先変更
     Private  m_ArrLB_ARR_FIXED()  As  System.Windows.Forms.Label
     Public   Property  ArrLB_ARR_FIXED()  As  System.Windows.Forms.Label()
         Get
             Return  m_ArrLB_ARR_FIXED
         End   Get
         Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_ARR_FIXED  =  Value
         End   Set
     End Property
     ' 問番
     Private  m_ArrLB_CO_DELIVERY_NO()  As  System.Windows.Forms.Label
     Public   Property  ArrLB_CO_DELIVERY_NO()  As  System.Windows.Forms.Label()
         Get
             Return  m_ArrLB_CO_DELIVERY_NO
         End   Get
         Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_CO_DELIVERY_NO  =  Value
         End   Set
     End Property
     ' 発送ロット
     Private  m_ArrLB_HASSOU_LOT()  As  System.Windows.Forms.Label
     Public   Property  ArrLB_HASSOU_LOT()  As  System.Windows.Forms.Label()
         Get
             Return  m_ArrLB_HASSOU_LOT
         End   Get
         Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_HASSOU_LOT  =  Value
         End   Set
     End Property
     ' 発送管理No
     Private  m_ArrLB_LOT_SEQ()  As  System.Windows.Forms.Label
     Public   Property  ArrLB_LOT_SEQ()  As  System.Windows.Forms.Label()
         Get
             Return  m_ArrLB_LOT_SEQ
         End   Get
         Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_LOT_SEQ  =  Value
         End   Set
     End Property
     ' 発送日
     Private  m_ArrLB_SENDDATE()  As  System.Windows.Forms.Label
     Public   Property  ArrLB_SENDDATE()  As  System.Windows.Forms.Label()
         Get
             Return  m_ArrLB_SENDDATE
         End   Get
         Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_SENDDATE  =  Value
         End   Set
     End Property
     ' 送り状定義
     Private  m_ArrLB_LABEL_DEF_NM()  As  System.Windows.Forms.Label
     Public   Property  ArrLB_LABEL_DEF_NM()  As  System.Windows.Forms.Label()
         Get
             Return  m_ArrLB_LABEL_DEF_NM
         End   Get
         Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_LABEL_DEF_NM  =  Value
         End   Set
     End Property

     ' 最新配送状況
     Private  m_ArrLB_STATS()  As  System.Windows.Forms.Label
     Friend   WithEvents  GroupBox1  As  System.Windows.Forms.Panel
     Public   Property  ArrLB_STATS()  As  System.Windows.Forms.Label()
         Get
             Return  m_ArrLB_STATS
         End   Get
         Set ( ByVal  Value()  As  System.Windows.Forms.Label)
            m_ArrLB_STATS  =  Value
         End   Set
     End Property
     ' メモ()
     Private  m_ArrTB_MEMO()  As  System.Windows.Forms.TextBox
     Public   Property  ArrTB_MEMO()  As  System.Windows.Forms.TextBox()
         Get
             Return  m_ArrTB_MEMO
         End   Get
         Set ( ByVal  Value()  As  System.Windows.Forms.TextBox)
            m_ArrTB_MEMO  =  Value
         End   Set
     End Property


#Region  " Windows フォーム デザイナで生成されたコード "

     Public   Sub   New ()
         MyBase .New()

         '  この呼び出しは Windows フォーム デザイナで必要です。
        InitializeComponent()

         '  InitializeComponent() 呼び出しの後に初期化を追加します。

     End Sub

     ' UserControl はコンポーネント一覧を消去するために dispose をオーバーライドします。
     Protected   Overloads   Overrides   Sub  Dispose( ByVal  disposing  As   Boolean )
         If  disposing  Then
             If   Not  (components  Is   Nothing )  Then
                components.Dispose()
             End   If
         End   If
         MyBase .Dispose(disposing)
     End Sub

     '  Windows フォーム デザイナで必要です。
     Private  components  As  System.ComponentModel.IContainer

     '  メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
     ' Windows フォーム デザイナを使って変更してください。  
     '  コード エディタを使って変更しないでください。
     < System.Diagnostics.DebuggerStepThrough() >   Private   Sub  InitializeComponent()
         Me .GroupBox1  =   New  System.Windows.Forms.Panel
         Me .SuspendLayout()
         '
         ' GroupBox1
         '
         Me .GroupBox1.Location  =   New  System.Drawing.Point( 0 ,  0 )
         Me .GroupBox1.Name  =   " GroupBox1 "
         Me .GroupBox1.Size  =   New  System.Drawing.Size( 956 ,  355 )
         Me .GroupBox1.TabIndex  =   0
         '
         ' GroupRepeate
         '
         Me .AutoScroll  =   True
         Me .Controls.Add( Me .GroupBox1)
         Me .Name  =   " GroupRepeate "
         Me .Size  =   New  System.Drawing.Size( 956 ,  355 )
         Me .ResumeLayout( False )

     End Sub

#End Region

     Private   Sub  GroupRepeate_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   MyBase .Load
        GroupBox1.Width  =   Me .Width  -   17
        InitProcess()
     End Sub


     ' ************************************************************
     ' 関数名         : GroupRepeate.InitProcess
     ' 機能説明       : 送り状情報 連番                
     ' 入力値         : 無し
     ' 出力値         : 無し
     ' 戻り値         : 
     ' その他         : 
     ' 作成者    　   : 童斌
     ' 作成日付       : 2009/02/25
     ' ***********************************************************
     Private   Sub  InitProcess()

         If  (m_DataVale  Is   Nothing )  Then
             Me .Visible  =   False
             Return
         End   If
         If  m_DataVale.Rows.Count  <   1   Then
             Me .Visible  =   False
             Return
         End   If

         Dim  intDataCount  As   Integer   =  m_DataVale.Rows.Count

         Dim  intGroupX  As   Integer   =   8
         Dim  intGroupY  As   Integer   =   5
         Dim  intGroupHeight  As   Integer   =   170
         Dim  intGroupWidth  As   Integer   =  GroupBox1.Width  -   17
         Dim  group(intDataCount)  As  System.Windows.Forms.GroupBox

         ' 詳細照会
         Dim  RB_INFO(intDataCount)  As  System.Windows.Forms.RadioButton

         Dim intGroupRBX As Integer = 15
        Dim intGroupRBY As Integer = 15
         ' 送付先変更
         Dim  LB_ARR_FIXED_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_ARR_FIXED(intDataCount)  As  System.Windows.Forms.Label
         ' 問番
         Dim  LB_CO_DELIVERY_NO_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_CO_DELIVERY_NO(intDataCount)  As  System.Windows.Forms.Label
         ' 発送ロット
         Dim  LB_HASSOU_LOT_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_HASSOU_LOT(intDataCount)  As  System.Windows.Forms.Label
         ' 発送管理No
         Dim  LB_LOT_SEQ_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_LOT_SEQ(intDataCount)  As  System.Windows.Forms.Label
         ' 発送日
         Dim  LB_SENDDATE_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_SENDDATE(intDataCount)  As  System.Windows.Forms.Label
         ' 送り状定義
         Dim  LB_LABEL_DEF_NM_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_LABEL_DEF_NM(intDataCount)  As  System.Windows.Forms.Label
         ' 最新配送状況
         Dim  LB_STATS_TITLE(intDataCount)  As  System.Windows.Forms.Label
         Dim  LB_STATS(intDataCount)  As  System.Windows.Forms.Label
         ' メモ()
         Dim  LB_TB_MEMO(intDataCount)  As  System.Windows.Forms.Label
         Dim  TB_MEMO(intDataCount)  As  System.Windows.Forms.TextBox

         Dim  i  As   Integer
         For  i  =   0   To  intDataCount  -   1
             ' 送り状情報 連番
            group(i)  =   New  System.Windows.Forms.GroupBox
            group(i).Text  =   " 送り状情報 "   &  i  +   1
            group(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            group(i).Height  =  intGroupHeight
            group(i).Width  =  intGroupWidth
            group(i).Location  =   New  System.Drawing.Point(intGroupX, ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i)

             ' 詳細照会
            RB_INFO(i)  =   New  System.Windows.Forms.RadioButton
            RB_INFO(i).Text  =   " 詳細照会 "
             RB_INFO(i).Location = New System.Drawing.Point(intGroupRBX, group(i).Location.Y + intGroupRBY)
            RB_INFO(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            RB_INFO(i).Name  =   " RB "   &  i
             ' 送付先変更
            LB_ARR_FIXED_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_ARR_FIXED_TITLE(i).Text  =   " 送付先変更 "
            LB_ARR_FIXED_TITLE(i).Location  =   New  System.Drawing.Point( 10 ,  40 )
            LB_ARR_FIXED_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_ARR_FIXED_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_ARR_FIXED_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_ARR_FIXED_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_ARR_FIXED_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_ARR_FIXED(i)  =   New  System.Windows.Forms.Label
            LB_ARR_FIXED(i).Text  =   " 有 "
            LB_ARR_FIXED(i).Location  =   New  System.Drawing.Point( 112 ,  40 )
            LB_ARR_FIXED(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_ARR_FIXED(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_ARR_FIXED(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_ARR_FIXED(i).Size  =   New  System.Drawing.Size( 30 ,  23 )
            LB_ARR_FIXED(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_ARR_FIXED(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 送付先変更 " ))

             ' 問番
            LB_CO_DELIVERY_NO_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_CO_DELIVERY_NO_TITLE(i).Text  =   " 問番 "
            LB_CO_DELIVERY_NO_TITLE(i).Location  =   New  System.Drawing.Point( 10 ,  64 )
            LB_CO_DELIVERY_NO_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_CO_DELIVERY_NO_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_CO_DELIVERY_NO_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_CO_DELIVERY_NO_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_CO_DELIVERY_NO_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_CO_DELIVERY_NO(i)  =   New  System.Windows.Forms.Label
            LB_CO_DELIVERY_NO(i).Location  =   New  System.Drawing.Point( 112 ,  64 )
            LB_CO_DELIVERY_NO(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_CO_DELIVERY_NO(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_CO_DELIVERY_NO(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_CO_DELIVERY_NO(i).Size  =   New  System.Drawing.Size( 128 ,  23 )
            LB_CO_DELIVERY_NO(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_CO_DELIVERY_NO(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 問番 " ))
             ' 発送ロット
            LB_HASSOU_LOT_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_HASSOU_LOT_TITLE(i).Text  =   " 発送ロット "
            LB_HASSOU_LOT_TITLE(i).Location  =   New  System.Drawing.Point( 248 ,  64 )
            LB_HASSOU_LOT_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_HASSOU_LOT_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_HASSOU_LOT_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_HASSOU_LOT_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_HASSOU_LOT_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_HASSOU_LOT(i)  =   New  System.Windows.Forms.Label
            LB_HASSOU_LOT(i).Location  =   New  System.Drawing.Point( 350 ,  64 )
            LB_HASSOU_LOT(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_HASSOU_LOT(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_HASSOU_LOT(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_HASSOU_LOT(i).Size  =   New  System.Drawing.Size( 108 ,  23 )
            LB_HASSOU_LOT(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_HASSOU_LOT(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送ロット " ))
             ' 発送管理No
            LB_LOT_SEQ_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_LOT_SEQ_TITLE(i).Text  =   " 発送管理No "
            LB_LOT_SEQ_TITLE(i).Location  =   New  System.Drawing.Point( 464 ,  64 )
            LB_LOT_SEQ_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LOT_SEQ_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_LOT_SEQ_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_LOT_SEQ_TITLE(i).Size  =   New  System.Drawing.Size( 111 ,  23 )
            LB_LOT_SEQ_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_LOT_SEQ(i)  =   New  System.Windows.Forms.Label
            LB_LOT_SEQ(i).Text  =   " H2232+5645 "
            LB_LOT_SEQ(i).Location  =   New  System.Drawing.Point( 575 ,  64 )
            LB_LOT_SEQ(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LOT_SEQ(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_LOT_SEQ(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_LOT_SEQ(i).Size  =   New  System.Drawing.Size( 128 ,  23 )
            LB_LOT_SEQ(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_LOT_SEQ(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送管理No " ))
             ' 発送日
            LB_SENDDATE_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_SENDDATE_TITLE(i).Text  =   " 発送日 "
            LB_SENDDATE_TITLE(i).Location  =   New  System.Drawing.Point( 708 ,  64 )
            LB_SENDDATE_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_SENDDATE_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_SENDDATE_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_SENDDATE_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_SENDDATE_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_SENDDATE(i)  =   New  System.Windows.Forms.Label
            LB_SENDDATE(i).Location  =   New  System.Drawing.Point( 810 ,  64 )
            LB_SENDDATE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_SENDDATE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_SENDDATE(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_SENDDATE(i).Size  =   New  System.Drawing.Size( 100 ,  23 )
            LB_SENDDATE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_SENDDATE(i).Text  =  mdlFunction.FormatDataToYMD(mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 発送日 " )))
             ' 送り状定義
            LB_LABEL_DEF_NM_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_LABEL_DEF_NM_TITLE(i).Text  =   " 送り状定義 "
            LB_LABEL_DEF_NM_TITLE(i).Location  =   New  System.Drawing.Point( 10 ,  88 )
            LB_LABEL_DEF_NM_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LABEL_DEF_NM_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_LABEL_DEF_NM_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_LABEL_DEF_NM_TITLE(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_LABEL_DEF_NM_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_LABEL_DEF_NM(i)  =   New  System.Windows.Forms.Label
            LB_LABEL_DEF_NM(i).Location  =   New  System.Drawing.Point( 112 ,  88 )
            LB_LABEL_DEF_NM(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_LABEL_DEF_NM(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_LABEL_DEF_NM(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_LABEL_DEF_NM(i).Size  =   New  System.Drawing.Size( 346 ,  23 )
            LB_LABEL_DEF_NM(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_LABEL_DEF_NM(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 送り状定義 " ))
             ' 最新配送状況 
            LB_STATS_TITLE(i)  =   New  System.Windows.Forms.Label
            LB_STATS_TITLE(i).Text  =   " 最新配送状況 "
            LB_STATS_TITLE(i).Location  =   New  System.Drawing.Point( 464 ,  88 )
            LB_STATS_TITLE(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_STATS_TITLE(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_STATS_TITLE(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_STATS_TITLE(i).Size  =   New  System.Drawing.Size( 111 ,  23 )
            LB_STATS_TITLE(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            LB_STATS(i)  =   New  System.Windows.Forms.Label
            LB_STATS(i).Location  =   New  System.Drawing.Point( 575 ,  88 )
            LB_STATS(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_STATS(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleLeft
            LB_STATS(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            LB_STATS(i).Size  =   New  System.Drawing.Size( 128 ,  23 )
            LB_STATS(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            LB_STATS(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " 最新配送状況 " ))
             ' メモ
            LB_TB_MEMO(i)  =   New  System.Windows.Forms.Label
            LB_TB_MEMO(i).Text  =   " メモ "
            LB_TB_MEMO(i).Location  =   New  System.Drawing.Point( 10 ,  112 )
            LB_TB_MEMO(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            LB_TB_MEMO(i).TextAlign  =  System.Drawing.ContentAlignment.MiddleCenter
            LB_TB_MEMO(i).BackColor  =  System.Drawing.SystemColors.Control
            LB_TB_MEMO(i).Size  =   New  System.Drawing.Size( 102 ,  23 )
            LB_TB_MEMO(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))

            TB_MEMO(i)  =   New  System.Windows.Forms.TextBox
            TB_MEMO(i).Location  =   New  System.Drawing.Point( 112 ,  112 )
            TB_MEMO(i).BorderStyle  =  System.Windows.Forms.BorderStyle.Fixed3D
            TB_MEMO(i).TextAlign  =  System.Windows.Forms.HorizontalAlignment.Left
            TB_MEMO(i).BackColor  =  System.Drawing.Color.FromArgb( CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 255 ,  Byte ),  Integer ),  CType ( CType ( 192 ,  Byte ),  Integer ))
            TB_MEMO(i).Size  =   New  System.Drawing.Size( 800 ,  46 )
            TB_MEMO(i).Multiline  =   True
            TB_MEMO(i).Font  =   New  System.Drawing.Font( " ＭＳ ゴシック " ,  11.25 !, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,  CType ( 128 ,  Byte ))
            TB_MEMO(i).Text  =  mdlFunction.DBNULLToEmpty(m_DataVale.Rows(i)( " メモ " ))

             'group(i).Controls.Add(RB_INFO(i))
            group(i).Controls.Add(LB_ARR_FIXED_TITLE(i))
            group(i).Controls.Add(LB_ARR_FIXED(i))
            group(i).Controls.Add(LB_CO_DELIVERY_NO_TITLE(i))
            group(i).Controls.Add(LB_CO_DELIVERY_NO(i))
            group(i).Controls.Add(LB_HASSOU_LOT_TITLE(i))
            group(i).Controls.Add(LB_HASSOU_LOT(i))
            group(i).Controls.Add(LB_LOT_SEQ_TITLE(i))
            group(i).Controls.Add(LB_LOT_SEQ(i))
            group(i).Controls.Add(LB_SENDDATE_TITLE(i))
            group(i).Controls.Add(LB_SENDDATE(i))
            group(i).Controls.Add(LB_LABEL_DEF_NM_TITLE(i))
            group(i).Controls.Add(LB_LABEL_DEF_NM(i))
            group(i).Controls.Add(LB_STATS_TITLE(i))
            group(i).Controls.Add(LB_STATS(i))
            group(i).Controls.Add(LB_TB_MEMO(i))
            group(i).Controls.Add(TB_MEMO(i))
            GroupBox1.Controls.Add(RB_INFO(i))
            GroupBox1.Controls.Add(group(i))
         Next

         If  ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i  >   Me .Height  Then
            GroupBox1.Height  =  ( 1   +  i)  *  intGroupY  +  intGroupHeight  *  i
         Else
            GroupBox1.Height  =   Me .Height
         End   If
        m_ArrRB_INFO  =  RB_INFO
        m_ArrLB_ARR_FIXED  =  LB_ARR_FIXED
        m_ArrLB_CO_DELIVERY_NO  =  LB_CO_DELIVERY_NO
        m_ArrLB_HASSOU_LOT  =  LB_HASSOU_LOT
        m_ArrLB_SENDDATE  =  LB_SENDDATE
        m_ArrLB_LABEL_DEF_NM  =  LB_LABEL_DEF_NM
        m_ArrLB_STATS  =  LB_STATS
        m_ArrTB_MEMO  =  TB_MEMO
        m_ArrLB_LOT_SEQ  =  LB_LOT_SEQ
     End Sub

End Class

 

 调用该控件的代码：

         Dim  dtTable  As   New  DataTable
        ..
         Dim  GroupRepeate1  As   New  UserControls.GroupRepeate
        GroupRepeate1.ArrLB_LOT_SEQ  =   Nothing
        GroupRepeate1.AutoScroll  =   True
        GroupRepeate1.DataVale  =   Nothing
        GroupRepeate1.Location  =   New  System.Drawing.Point( 9 ,  302 )
        GroupRepeate1.Name  =   " GroupRepeate1 "
        GroupRepeate1.Size  =   New  System.Drawing.Size( 956 ,  351 )
        GroupRepeate1.DataVale  =  dtTable
         Me .Controls.Add(GroupRepeate1)