是做不到的,只能使用控件数组 其实呢,是有办法实现的,但需要一个vba6.dll控件,然后声明EbExecuteLine函数,然后就可以使用 ExecuteLine 函数了,使用这语句 ExecuteLine Text1.Text 就可以运行在Text1里输入的代码。Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Dim i As Integer
For i = 1 To 10 '多少个你自己定
Load Label1(i)
Label1(i).Caption = i '属性自己定
Label1(i).Left = Label1(i - 1).Left + 2000 '属性自己定
Label1(i).Visible = True '设置为可视
Next i
这个用数组好做点dim label(10) as label