Dim qi() As Label
Private Sub Form_Load()
ReDim qi(0 To 31)
For i = LBound(qi) To UBound(qi) Step 1
Set qi(i) = Controls.Add("vblabel", "label" & i)
With qi(i)
.Left = 100 ' 设置控件的位置
.Top = 100 + i * 30
.width = 50 ' 设置控件的大小
.height = 20
.Visible = True
.caption = "label " & i ' 设置控件的显示文本
End With
AddHandler qi(i).Click, AddressOf Shape_Click ' 添加Click事件处理程序
Next i
End Sub
我用代码生成了一个控件数组，但是我用不了控件的事件怎么办
VB6.0 好像不支持AddHandler qi(i).Click, AddressOf Shape_Click

VB6有自带的控件数组，只要你在设计阶段向窗体中添加一个控件数组元素，就可以在运行时添加任意数量的控件数组元素
比如界面上预先放置一个Label1(0)，具体方法是放置一个标签控件Label1之后，将其Index属性设置为0；然后就可以用如下代码添加其余的元素：
For i = 1 To 31
Load Label1(i)
With Label1(i)
'设置控件数组元素的各属性，代码略
End With
Next i