关于VB的问题

建立一个Label1(0 to 15)的控件数组
数组中的每个元素属性如下:
Width =200
Height =200
BackColor = QBColor(各自的下标)
Visible = True
排一横排放在Form1上,间距为100
要求只用代码实现

Private Sub Form_Load()
Dim a As Label
Dim i As Integer
For i = 0 To 14
Set a = Form1.Controls.Add("VB.Label", "label" & i)
a.Width = 200
a.Height = 200
a.BackColor = QBColor(i)
a.Visible = True
a.Move i * 300 + 200, 100
Next
End Sub

在窗体上添加一个Label1，把它的Index属性设为0，然后在窗体中添加如下代码

Private Sub Form_Load() Dim i As Integer With Label1(0) .Width = 200 .Height = 200 .BackColor = 0 .Visible = True .Left = Me.Left + 30 .Top = Me.Top + 30 End With For i = 1 To 15 Load Label1(i) With Label1(i) .Width = 200 .Height = 200 .BackColor = i .Visible = True .Left = Label1(i - 1).Left + Label1(i - 1).Width + 100 .Top = Label1(0).Top End With

Next End Sub