求指导——动态生成控件的有关问题

求指导——动态生成控件的问题，
如题，想实现两个功能，
A.点击一个button1，动态生成另一个button2（这一步没问题），
然后是点击生成的button2，再生成一个button3
B.或者是点击原来的button1，继续无限生成一系列的button3.4.5.6.....

主要是弄不明白newbutton的用法

如下是小弟依葫芦画瓢写的代码，点击button1现在没反应
求指点应该怎么改

Private WithEvents NewButton As CommandButton
Private Sub Command1_Click()
If NewButton Is Nothing Then
Set NewButton = Controls.Add("vb.commandbutton", "button1", Form1)
NewButton.Visible = True
NewButton.Caption = "button1"

End If
End Sub

Private Sub NewButton_Click()

Set NewButton = Controls.Add("vb.commandbutton", "button2", Form1)
NewButton.Visible = True
NewButton.Caption = "button2"
End Sub

------解决思路----------------------
使用控件数组啊，然后根据相应的index执行相应的操作....
------解决思路----------------------

引用:

Quote: 引用:

错了，这是VB.NET的方法

VB6的方法http://blog.csdn.net/lbuskeep/article/details/6254928

正在看， 但是它貌似不能实现
“每点击一次按钮，就生成一个文本框/按钮"这样的功能， 批量删除倒是看到了

.net很容易做到，VB6还是用控件数组比较好，每次创建的时候指定Index属性
然后创建的click事件参数不一样
Private Sub Command1_Click()
Private Sub Command1_Click(Index  As Integer)
------解决思路----------------------

引用:

先贴个完成的功能1，
【点command1-bt1和bt2】-【点bt1-bt3】

直接 

Load  Command1(i)