Динамическое создание кнопки на Panel

Dim CB As New CheckBox
CB.Text = "CheckBox1"
CB.Location = New Point(50, 50)
Panel1.Controls.Add(CB)

   Public Shared CB As New CheckBox
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CB.Text = "CheckBox1"
        CB.Location = New Point(50, 50)
        Panel1.Controls.Add(CB)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If CB.Checked = True Then
            MsgBox("Чекнутый")
        Else
            MsgBox("Не чекнутый")
        End If
    End Sub

Dim CB(9) As CheckBox
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Me.i = 0 To 9 ' для 10 штук
            Me.CB(Me.i) = New CheckBox
            With Me.CB(Me.i)
                .Text = "CheckBox" & Me.i
                .Name = "CB: " & Me.i
                .Location = New Point(50, 50 * Me.i) ' Строимся в столбик
            End With
            Panel1.Controls.Add(CB(Me.i))
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = Nothing ' в TextBox1.Text выводятся результаты проверки (TextBox1.Text на форму)
        For Me.i = 0 To 9
            If CB(Me.i).Checked = True Then
                TextBox1.Text &= "CB(" & Me.i & ") - Чекнутый" & vbCrLf
            Else
                TextBox1.Text &= "CB(" & Me.i & ") - Не чекнутый" & vbCrLf
            End If
        Next
    End Sub