如何动态创建一个BUTTON并处理它的单击事件？

[jaguarcts]

Friend WithEvents btn As System.Windows.Forms.Button

Private Sub btnOnClick()
MessageBox.Show("Me Clicked", "TITLE", MessageBoxButtons.OK, MessageBoxIcon.Question)
End Sub

Private Sub frmDynamic_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.btn = New System.Windows.Forms.Button()
Me.SuspendLayout()
Me.btn.Location = New System.Drawing.Point(100, 100)
Me.btn.Name = "btntest"
Me.btn.TabIndex = 0
Me.btn.Text = "CLICK ME"
Me.btn.Visible = True


Me.ResumeLayout(False)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btn})

控件已经创建啦，但如何让它执行一段代码呢？
要执行的SUB 程序已经弄好啦。

[timmy3310]

Private Sub btnOnClick()
改成：
Private Sub btnOnClick(ByVal sender As System.Object, ByVal e As System.EventArgs)


然后在增加按钮的代码加几句：
...
Me.btn.Text = "CLICK ME"
Me.btn.Visible = True
'从这里开始加
Dim btnClick As New EventHandler(AddressOf Me.btnOnClick)
AddHandler btn.Click, btnClick

[jaguarcts]

谢谢老大，小弟搞定啦。