Is this what you're looking for?

Code:
Public Class Form1

   
Private myButton As Button


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try

            myButton = New Button

            myButton.Size = New System.Drawing.Size(80, 24)
            myButton.Location = New System.Drawing.Point(40, 40)
            myButton.Text = "myButton"
            Controls.Add(myButton)

            AddHandler myButton.Click, AddressOf myButtonClick


        Catch ex As Exception

        End Try
    End Sub

    Private Sub myButtonClick()

        Try
            MessageBox.Show("OK")
        Catch ex As Exception

        End Try
    End Sub

 
End Class

Curt