Public Class Form1
    Friend Button1 As System.Windows.Forms.Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1 = New Button
        With Button1
            .Name = "Button1"
            .Text = "Нажми на меня"
            .Left = 50 : .Top = 50
            .Width = 100
            AddHandler Button1.Click, AddressOf Button1_Click
            Me.Controls.Add(Button1)
        End With
    End Sub

    Sub Button1_Click()
        MsgBox("Мое имя : " & Button1.Text)
    End Sub

End Class