如何动态加载控件组？？急等！！

Question

我要动态加载一个Combo控件组
我在窗体上添加了一个Combo(0)的控件在sub Form_Click()
  Load Combo(4)
  Combo(0).Additem "1"
  Combo(1).Additem "2"
  Combo(2).Additem "3"
  Combo(3).Additem "4"
  Combo(4).Additem "5"
  End sub
系统老是提示 control array index 1 doesn't exist!
希望那位大侠指点一二

Answer 1

Load Combo(1)
Load Combo(2)
Load Combo(3)
Load Combo(4)

Answer 2

sub Form_Click()  for i =1 to 4
    Load Combo(i)
    Combo(i).Additem i
    combo(i).visible=true
  next iEnd sub

Answer 3

'完整的代码如下：
Option Explicit
Dim bIndex() As Boolean'添加控件  
Private Sub AddControls(Count As Integer)
  Dim I As Integer
  ReDim Preserve bIndex(Count)
  For I = 1 To Count
    AddControl I
  Next
End Sub'添加控件子过程 
Private Sub AddControl(Index As Integer)
  If bIndex(Index) = False Then
    Load Combo1(Index)
    Combo1(Index).Move Combo1(Index - 1).Left, Combo1(Index - 1).Top + Combo1(Index - 1).Height + 60
    Combo1(Index).Visible = True
    bIndex(Index) = True
  End If
End Sub'删除控件
Private Sub DelControl(Index As Integer)
  If bIndex(Index) = True Then
    Unload Combo1(Index)
    bIndex(Index) = False
  End If
End SubPrivate Sub Command1_Click()
  AddControls 4
End SubPrivate Sub Command2_Click()
  DelControl 2
End Sub