TableLayoutPanel1.GetType().GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(TableLayoutPanel1, True, Nothing)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click


        Me.TableLayoutPanel1.RowCount = 1
        Me.TableLayoutPanel1.ColumnCount = 1
        Me.TableLayoutPanel1.Controls.Clear()

        Dim value As String = InputBox("输入控件数量：", "提示", "4")
        If String.IsNullOrWhiteSpace(value) Then
            Return
        End If

        Dim count As Int32 = CInt(value)


        '设置最大列数
        Dim maxColumnt As Int32 = 4

        If count > maxColumnt * 2 Then
            MessageBox.Show("不能超过" & maxColumnt * 2 & "个。")
            Return
        End If



        '判断是否需要重起一行
        If count > maxColumnt Then
            '重新起一行
            Me.TableLayoutPanel1.RowCount = 2
            Me.TableLayoutPanel1.ColumnCount = maxColumnt
        Else
            Me.TableLayoutPanel1.ColumnCount = count
        End If

        For c As Int32 = 0 To Me.TableLayoutPanel1.ColumnCount - 1
            Me.TableLayoutPanel1.ColumnStyles.Add(New ColumnStyle())
        Next

        '添加控件
        For r As Int32 = 0 To Me.TableLayoutPanel1.RowCount - 1

            Me.TableLayoutPanel1.RowStyles.Add(New RowStyle())


            For c As Int32 = 0 To Me.TableLayoutPanel1.ColumnCount - 1
                Dim g As New GroupBox
                g.Text = r.ToString & " " & c.ToString
                g.Dock = DockStyle.Fill
                g.Width = 10
                Me.TableLayoutPanel1.Controls.Add(g, c, r)
            Next

        Next

        TableLayouResize()

    End Sub

    '自动大小
    Private Sub TableLayouResize()


        '反射解决，闪烁问题。
        TableLayoutPanel1.GetType().GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic).SetValue(TableLayoutPanel1, True, Nothing)
        For r As Int32 = 0 To Me.TableLayoutPanel1.ColumnCount - 1
            Me.TableLayoutPanel1.ColumnStyles(r).SizeType = SizeType.Absolute
            Me.TableLayoutPanel1.ColumnStyles(r).Width = CInt(Me.TableLayoutPanel1.Width / Me.TableLayoutPanel1.ColumnCount)
        Next

        For r As Int32 = 0 To Me.TableLayoutPanel1.RowCount - 1
            Me.TableLayoutPanel1.ColumnStyles(r).SizeType = SizeType.Absolute
            Me.TableLayoutPanel1.RowStyles(r).Height = CInt(Me.TableLayoutPanel1.Height / Me.TableLayoutPanel1.RowCount)
        Next

    End Sub

    Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
        TableLayouResize()
    End Sub