myButton = New Button("Klick mich an!")
myButton.Location = new Point(50,50)
AddHandler(myButton.Click, AddressOf myButton_Click)

Private Sub myButton_Click(ByVal sender As Object, ByVal e As EventArgs)
   MessageBox.Show("Button angeklickt.")
End Sub

If Not (myButton Is Nothing) Then
   myButton.PerformClick()
End If

Ralf