动态添加控件有关问题

动态添加控件问题
怎样动态一个个地添加/删除控件，假如有一个comboBox1(0)控件数组，而且comboBox1(0)中有数据，如何使动态添加的其他控件也有跟comboBox1(0)的数据一样？

------解决方案--------------------
楼主动态添加控件
Dim MyControl3 As Control
Set mycontro3 = Me.Controls.Add( "vb.combobox ", "mytext ")
With mycontro3
.Visible = True
End With

然后对MyControl3 进行一遍combo1之间的赋值.
------解决方案--------------------
添加好那一个

再用ＬＯＡＤ语句装载数组

mycontro3.index=0

for i=0 to 3
load mycontro3(i)
mycontro3(i).visible=true
mycontro3(i).left=mycontro3(i-1).left+mycontro3(i).with
next
------解决方案--------------------
Dim i As Integer
For i = 1 To 5
Load Combo1(i) ' 给数组添加 5 个选项按钮。
Combo1(i).Top = Combo1(i - 1).Top + 350
Combo1(i).Visible = True
Next i
Combo1(0).Text = "Open " ' 在每个选项按钮上放置标题。
Combo1(1).Text = "Save "
Combo1(2).Text = "Color "
Combo1(3).Text = "Font "
Combo1(4).Text = "Printer "
Combo1(5).Text = "Help "