以下是引用purana在2006-12-12 19:02:26的发言:
'先添加一个Command控件,将它的index属性设置为0
Dim i As Long
For i = 1 To 10
Load Command1(i)
Command1(i).Left = Command1(i - 1).Left + 1000
Command1(i).Caption = Str(i)
Command1(i).Visible = True
Next
怪不得...原来我没有红色那句...谢谢了.你是一个好版主!