Public Class Form1
Private WithEvents aaa As New Button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Me.Controls.Add(aaa)
End Sub
Private Sub aaa_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aaa.Click
MsgBox("!!!")
End Sub
End Class
新建一个带有一个按钮<button1>的form1窗体,复制代码并替换。