vb的for代码怎么写？

vb的for代码怎么写？  100个标签 for i=1 to 100 怎么统一设置这些标签的字体格式？

追问：不是控件数组啊，一百个不同标签，统一设置鼠标样式。

答案：'如果不是数组控件可以给你用另外的方法写
Option Explicit
Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To Label1.Count - 1 'label1为一控件数组
        With Label1(i) '下面自己随便修改，想怎么改都行，可以加上条件，，，
            .AutoSize = True
            .Font.Size = 16
            .FontBold = True
        End With
    Next
End Sub
Private Sub Form_Load()
    '用Label1假定是你的灯, 初始是黑色背景,灯灭
    Me.Label1.BackColor = vbBlack
End Sub 
Private Sub Label1_Click()
    '鼠标点击“灯”,如果背景为黑色,,灯灭
    If Me.Label1.BackColor = vbBlack Then
        '使背景变为红色，灯亮
        Me.Label1.BackColor = vbRed
    Else '如果背景不为黑色：设背景为黑色，灯灭
        Me.Label1.BackColor = vbBlack
    End If
End Sub

上一个：求vb md5加解密
下一个：这个VB程序怎么写