Dim btn as New Button
btn.Size = New Size( 100, 100)
btn.Location = New Point ( 100, 100)
btn.Name = "Button1"
btn.Text = "Button1
AddHandler btn.Click, Addressof btn_Click
Panel1.Conttrols.Add(btn)
 
Private Sub btn_Click(Sender as Object, E as Eventargs)
Dim btn as button
if Typeof sender is button then
    btn = ctype(sender, button)
    if btn.Name = "Button1" then
        MessageBox(btn.Text)
    endif
end if
end sub