动态生成多个相同的控件，实际上是这么做的窗体上放一个COMMAND按钮，假定命名为cmd，将index设置成0,visible=False控制的核心的代码是：
Private Sub Form_Load() For i = 1 To 5 '这里是要生成控件的数量 Load cmd(i) '动态生成cmd(i).Caption = " botton " & i ' 生成控件的Captioncmd(i).Top = cmd(i).Height * (i / 5 + (i - 1 )) ' 自动排列控件cmd(i).Visible = True Next i End Sub