如何动态添加控件
需要动态添加若干数量的combobox控件
添加单个的方法是：
添加窗体级变量： Dim WithEvents combo_box As combobox
按钮点击事件：
Private Sub Command1_Click()
Set combo_box = Controls.Add("VB.combobox", "combo_box")
combo_box.Move 480, 5280, 1815
combo_box.Visible = True
End Sub
=================================================
但是如果动态添加若干数量（数量不定）的话应该怎么做呢？
遇到的困难在于combo_box作为一个控件名如何动态命名，combo_box1,combo_box2,combo_box3.....
如何将这个动态命名写于上面的语句中？求助！
[解决办法]
可以使用控件数组。
[解决办法]
要动态添加控件，同时要求添加的控件能处理事件，使用控件数组方式添加
设计时，窗口中添加1个combox1，index设置为0
代码中加入事件处理
sub combox1_click(index)
'该事件能响应所有combox1的click，使用index区分是哪个
end sub
动态添加：
load combox(1)
combox1(1).visible=true
combox1(1).move ....
[解决办法]
这是VB.NET的程序，在VB6中不能直接用。
