请问用代码能添加控件数组吗？

Question

如题，我的代码这样：
private withevents newobj as commandbutton  Set NewObj = Controls.Add("VB.CommandButton", "Cmd1") '这里的Cmd1写成Cmd1（0）就出错
   With NewObj
      .Visible = True
      .Width = 2000
      .Caption = "OK"
      .Top = 1000
      .Left = 1000
   End With
请问该怎么写？

Answer 1

cmdl就代表所有的属于这个数组的成员
Set NewObj = Controls.Add("VB.CommandButton", "Cmd1"） '这样应该没问题。
问题在与，下面你可以用NewObj.Index来索引是那个成员。

Answer 2

 
for i=1 to 4
  With NewObj
      .Index=i   '这里出现错误：不能给只读属性赋值
      .Visible = True
      .Width = 2000
      .Caption = "OK"
      .Top = 100+400*(i-1)
      .Left = 1000
   End With
next