由于控件已经定义了委派方法与事件，因此只需定义事件处理过程，并把该过程注册就行了

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

      ByVal e As System.EventArgs) Handles Button1.Click

        Dim button2 As Button = New Button() '生成一个 按钮 控件

        Me.Controls.Add(button2) '把生成的按纽 控件加入窗体中

        button2.Location = New Point(30, 20) '定位新生成的按钮 控年

        button2.Name = "bt2" '为 新成生的控件定义 一个 唯一标识符，以便在注销时能找到它

        AddHandler button2.Click, AddressOf aa '为新生成的控件注册 一个 点击 事件

    End Sub

    Sub aa(ByVal sender As System.Object, ByVal e As System.EventArgs) '事件处 理程序

        MsgBox("事件被触发")

    End Sub

    Private Sub Form1_Leave(ByVal sender As System.Object, _

      ByVal e As System.EventArgs) Handles MyBase.Leave

        RemoveHandler Me.Controls("bt2").Click, AddressOf aa '离开时，注销该事件

    End Sub

End Class