При нажатии на кнопку добавляется элемент - Visual Basic .NET

Формулировка задачи:

разработать программу с двумя кнопками на форме. При нажатии на первую на форму добавляется одна Panel. При нажатии на вторую кнопку в каждую панель добавляется поле ввода. Все сложно... Единственное что я смог изрыгнуть это вот это, но это у меня добавляется только в единственном экземпляре, и то, текстбокс за панелью оказывается и получается недоступен для ввода.

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As New Panel
        Me.Controls.Add(a)
        a.BackColor = Color.Blue
        a.Size = New Size(50, 50)
       
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim b As New TextBox
        Me.Controls.Add(b)
        b.BackColor = Color.Silver
        b.Size = New Size(10, 40)
    End Sub
End Class

Решение задачи: «При нажатии на кнопку добавляется элемент»

textual
                            Листинг программы 
                        

                             Dim a As New Panel
    Dim b As New TextBox
    Dim PanelCount As Integer = 0
    Dim loc As Point = New Point(30, 30)
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        a = New Panel
        a.BackColor = Color.Blue
        a.Size = New Size(100, 100)
        a.Location = loc
 
        If PanelCount = 4 Then
            PanelCount = 0
            loc = New Point(loc.X + a.Width, 30)
        Else
            loc = New Point(loc.X, loc.Y + a.Height)
            PanelCount += 1
        End If
 
 
        Me.Controls.Add(a)
 
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
        For Each PN As Panel In Me.Controls.OfType(Of Panel)()
            If PN.Controls.Count = 0 Then
                b = New TextBox
                b.BackColor = Color.Silver
                b.Size = New Size(50, 40)
                b.Location = New Point(10, 10)
                PN.Controls.Add(b)
            End If
         
        Next
 
    End Sub
                        