如何动态添加事件的问题

    Dim butt As New Windows.Forms.Button
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Controls.Add(butt)
        butt.SetBounds(Button1.Left + Button1.Width, Button1.Top, Button1.Width, Button1.Height)
        butt.Text = "新增的按钮"
        butt.Show()
        AddHandler butt.Click, AddressOf butt_Click
    End Sub
    Private Sub butt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("你单击的是刚才新建的按钮")
    End Sub