关于控件数组，在线等

做一百个command数组，属性都设为不可见，text里输入多少就让多少个显示出来。
应该是最简单的办法了吧？

你可以先加入一个控件将其index属性设置成0然后用load command(i)这样来做.load完成后要设置相关属性 比如位置,是否显示,大小等等.

sub add()
Dim i As Long
Dim s As String

' Dim i As Long
Dim tp As Long
tp = 0
Dim lp As Long
lp = 0
For i = 1 To 40
Load Command1(i)
With Command1.Item(i)
.Move Command1.Item(lp).Width + Command1.Item(lp).Left, Command1(lp).Top + Command1(lp).Height * tp
.Caption = i
.Visible = True
If i Mod 10 = 0 Then
tp = tp + 1
lp = 0
End If
lp = lp + 1
End With

Next

End Sub
上面的代码可以实现你的这个功能 不过没有调试.