按钮控制标签改变背景色问题

[ikano]

求程序。。没用VB写过。。高手帮帮忙。。
一个button，四个label，按一次button把label1的背景色改为蓝色，再按一次label2的背景色改为蓝色，label1变为原来的默认背景色，label3，label4的背景色也不变，依此类推，button按多一次改变后一个label背景色，并恢复前一个label背景色

[GodSeventh007]

1楼大善！

[生命密码]

Option Explicit
Private iCount As Long '点击计数器
Private Colors(1 To 4) As Long '各控件变色值

Private Sub Command1_Click()
    Dim i As Long
    For i = 1 To 4
        Me("label" & CStr(i)).BackColor = vbWindowBackground
    Next i
    iCount = iCount + 1
    Me("label" & CStr((iCount - 1) Mod 4 + 1)).BackColor = Colors((iCount - 1) Mod 4 + 1)
End Sub

Private Sub Form_Load()
    '变量初始化
    iCount = 0
    Colors(1) = vbRed
    Colors(2) = vbBlue
    Colors(3) = vbBlack
    Colors(4) = vbGreen
End Sub

[无·法]

如果不用控件数组的就一个个设吧

Private Sub Command1_Click()
    Static i%
    i = i + 1
    Select Case i
        Case 1
            Label1.BackColor = vbRed
            Label2.BackColor = &H8000000F
            Label3.BackColor = &H8000000F
            Label4.BackColor = &H8000000F
        Case 2
            Label1.BackColor = &H8000000F
            Label2.BackColor = vbRed
            Label3.BackColor = &H8000000F
            Label4.BackColor = &H8000000F
        Case 3
            Label1.BackColor = &H8000000F
            Label2.BackColor = &H8000000F
            Label3.BackColor = vbRed
            Label4.BackColor = &H8000000F
        Case 4
            Label1.BackColor = &H8000000F
            Label2.BackColor = &H8000000F
            Label3.BackColor = &H8000000F
            Label4.BackColor = vbRed
            i = 0
    End Select
End Sub

[无·法]

vbRed -> vbBlue