动态生成多个相同的控件

动态生成多个相同的控件，实际上是这么做的
窗体上放一个COMMAND按钮，假定命名为cmd，将index设置成0,visible=False
控制的核心的代码是： 

Private Sub Form_Load()
For i = 1 To 5  '这里是要生成控件的数量
Load cmd(i)    '动态生成
cmd(i).Caption = "botton " & i    ' 生成控件的Caption
cmd(i).Top = cmd(i).Height * (i / 5 + (i - 1))    ' 自动排列控件
cmd(i).Visible = True
Next i
End Sub