首先要在窗体上添加一个label控件，将其的index属性设置为0（创建控件数组），然后代码如下：
Private Sub Command1_Click()
Dim i As Integer
For i = 2 To 5
Load Label1(i)
Label1(i).Caption = "Label1" & i
Label1(i).Visible = True
Label1(i).Top = i * 500
Next i
End Sub
load(label1)
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024