Dim p(2) As Panel
        Dim t(2, 5) As TextBox
        For a As Integer = 0 To 2
            p(a) = New Panel
            p(a).Size = New Size(150, 180)
            p(a).Location = New Point(100, a * (p(a).Size.Height + 10))
            p(a).BorderStyle = BorderStyle.FixedSingle
            For b As Integer = 0 To 5
                t(a, b) = New TextBox
                t(a, b).Location = New Point(3, 20 * (b + 1))
                p(a).Controls.Add(t(a, b))
            Next
            Me.Controls.Add(p(a))
        Next