如何动态添加控件？

[Seal]

SSTAB控件的页数是动态增加的。每一页中都包含一个列表框，要求列表框也动态增加。请问：如何实现？如何接收没一个列表框的事件？
多谢了。其实我可以给100分的，可系统不让。不知为何

[Seal]

谢谢gameboy999，只是如何相应listbox的事件呢？

[JamesDT]

Option Explicit
Private WithEvents btnObj As CommandButton

Private Sub btnObj_Click()
MsgBox "This is a dynamically added button."
End Sub

Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub

以上是MSDN中的例子!

[NiceFeather]

请看一下这个例子：
http://www.csdn.net/dev/Visual%20Basic/source%20code/Control%20Examples/newctl.zip

[gameboy999]

dim Newlistbox as listbox
newlistbox=new listbox
with newlistbox
.xxx=xxxxxx
.xxxx=xxxxx
.
.
.

end with
记不大清了,去查一下 MSDN 吧