Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                                    Handles Button1.Click

    '新しいボタンコントロールのインスタンスを生成する。
    Dim button As New Button

    '作成したボタンに名前を付ける。
    button.Name = "btnNew"

    '作成したボタンに表示されるテキストを設定する。
    button.Text = "クリックして下さい"

    'Formに作成したボタンを追加する。
    Me.Controls.Add(button)

    '作成したボタンのクリックイベントとイベントハンドラを関連付ける。
    AddHandler button.Click, AddressOf Me.ClickEventHandler
    '(↑AddHandler button.Click, New EventHandler(AddressOf Me.ClickEventHandler)の略です)

End Sub

'Handles句がついていないことに注目してください。
Private Sub ClickEventHandler(ByVal sender As Object, ByVal e As System.EventArgs)

    MessageBox.Show("btnNewがクリックされました！", "Information", _
                     MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub