Динамическое размещение TextBox-ов в динамически созданном GroupBox

    Dim nCon = 1    'Счетчик для добавления новых Гроупбоксов
    Dim nTex = 1    'Счетчик для добавления текстбоксов в Гроупбоксах
   
    Private Sub CreBut_Click(sender As Object, e As EventArgs) Handles CreBut.Click
        Dim GrBox As New GroupBox
        With GrBox
            .Name = "GrBox" & nCon 'Задаём имя ячейки
            .Size = New Size(70, 100) 'Размеры
            .Location = New Point(10 + (75 * nCon), 5) 'Расположение кнопки на панели
            .Text = "Группа" & nCon
            .BackColor = Color.WhiteSmoke
        End With
        Me.pBox.Controls.Add(GrBox) 'Добавляем созданный элемент на панель 2
        AddHandler GrBox.MouseMove, AddressOf p_MouseMove 'Надо разобраться. Наверно обработчик клика мышки по объекту
 
        For i = 1 To 3              'Счетчик для добавления текстбоксов в новый Гроупбокс.24.11.14 не работает.
            Dim TexB As New TextBox
            With TexB
                .Name = "TexB" & nTex 'Задаём имя ячейки
                .Size = New Size(45, 20) 'Размеры
                .Location = New Point(5, 5 + (25 * nTex)) 'Расположение кнопки на форме
                .Text = "Знач" & nTex
            End With
            Me.pBox.Controls.Add(TexB)  'Добавляем созданный элемент на форму
            nTex = nTex + 1
        Next
 
        nCon = nCon + 1
    End Sub