Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New TableLayoutPanel
        Dim styles As TableLayoutColumnStyleCollection = a.ColumnStyles
        a.SuspendLayout()
        a.ColumnCount = 10
        a.RowCount = 10
        a.Dock = DockStyle.Fill
        Me.Controls.Add(a)
        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
                'a.ColumnStyles(i).SizeType = SizeType.AutoSize
                grp.Name = "grpProva" & i.ToString
                grp.Text = "Prova" & j.ToString & i.ToString
                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

        For Each style As ColumnStyle In styles
            style.SizeType = SizeType.AutoSize
        Next

        a.Dock = DockStyle.Fill
        a.CellBorderStyle = TableLayoutPanelCellBorderStyle.OutsetPartial
        a.AutoScroll = True
        a.ResumeLayout()

    End Sub