Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim a As New TableLayoutPanel
        a.SuspendLayout()
        a.ColumnCount = 10
        a.RowCount = 10
        a.Dock = DockStyle.Fill
        a.CellBorderStyle = TableLayoutPanelCellBorderStyle.OutsetPartial
        a.AutoScroll = True

        a.AutoSize = True

        For j = 0 To a.RowCount - 1
            For i As Integer = 0 To a.ColumnCount - 1
                Dim txt As New TextBox
                Dim grp As New GroupBox
                grp.Name = "grpProva" & i.ToString
                grp.Text = "Prova" & j.ToString & i.ToString

                grp.Size = New Size(100, 50)

                txt.Name = "txtProva" & j.ToString & i.ToString
                grp.Controls.Add(txt)
                txt.Dock = DockStyle.Fill
                a.Controls.Add(grp, i, j)
                grp.Dock = DockStyle.Fill
            Next
        Next

        Me.Controls.Add(a)
        a.ResumeLayout()