如何才能在vb.net中动态添加自定义控件，并绑定相应的事件

[winnerwang]

如何才能在vb.net中动态添加自定义控件，并绑定相应的事件呢？

期待高手！！

[Montaque]

Dim text1 As New TextBox
AddHandler text1.KeyPress, AddressOf TextBox_KeyPress
Me.Controls.Add(text1)

Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
End Sub

[Montaque]

举一个例子，动态添加一个button，并且添加button的Click处理事件程序：

WithEvents myButton As Button '申明一个控件

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myButton = New Button
myButton.Text = "1234"
AddHandler myButton.Click, AddressOf MyButton_Click
Me.Controls.Add(myButton)
End Sub


'一个处理程序
Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show(sender.text)
End Sub

[winnerwang]

动态添加vb.net附带的标准控件我知道如何添加，我说的是动态添加第三方控件，并将该控件的所有开放的事件绑定到一个处理事件程序中，我们在vb中可以通过以下方式实现：
Dim WithEvents vbCtrls As VB.VBControlExtender
Set vbCtrls = Me.Controls.Add("TestControl", "aa")
这样该控件的所有扩展事件就绑定到以下的处理事件程序中了：
Private Sub vbCtrls_ObjectEvent(Info As EventInfo)

End Sub
但在vb.net中该如何才能实现呢？

Montaque(Rainman)，请求帮助指点！！