窗口的AfterLoad事件代码：
Dim ct As New Windows.Forms.Button
ct.Text = "我的按钮"
e.Form.Panel.Controls.Add(ct)
AddHandler ct.Click, AddressOf Button1_Click
加好友 
发短信
Post By：2015/1/10 10:56:00 [只看该作者]
