Программное создание элементов - Visual Basic .NET/.NET 4.x

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

Всем здравствуйте! Заранее извиняюсь за свой французский, если неверно назову какие-либо определения. Интересует такой момент как программное создание элементов, использующих заданные процедуры. В частности, есть кнопка (Button1), создающая на форме новые кнопки (Button0...300), визуально одна под другой, при нажатии на которые выводится месседж "хело мир". Проблема в том, что сообщение работает только на свежесозданной кнопке, остальные его не вызывают. Как исправить, подскажите, люди добрые.

Public Class Form1
    Dim WithEvents MyEvents As New Button
    
    Dim a As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim Btn As New Button With {.Text = "Button" & a, .Top = a}
        MyEvents = Btn
            Me.Controls.Add(Btn)
        If a <> 300 Then a = a + 100 Else Exit Sub
    End Sub
 
    Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyEvents.Click
        MsgBox("Hello, World!")
    End Sub
End Class

Решение задачи: «Программное создание элементов»

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

                            Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Static i As Integer = 0
    Dim lf As Integer = 20
    Static tp As Integer = 10
    Dim dy As Integer = 50
    i += 1
    Dim bt As New Button With {.Top = tp, .Left = lf, .Text = "Кнопка" & i.ToString}
    AddHandler bt.Click, AddressOf myButton_Click
    Me.Controls.Add(bt)
    tp += dy
End Sub
                        