不同的容器里实现 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)