'设置第一个控件为数组控件 如名为 label1 把 index属性设置为0 下面代码为0
Private Sub Command1_Click()
'生成 n个
Dim n As Integer
n = 4
For i = 1 To n
Load Label1(i)
Label1(i).Caption = "Label1" & i
Label1(i).Width = Frame1.Width
Label1(i).Top = Label1(i - 1).Top + Label1(i - 1).Height
Label1(i).Visible = True
Next
Timer1.Enabled = True'这个前提是 这个属性为 false 且 Interval 不能为0
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除!