VB按钮如何实现第一次按下去有颜色，第二次按的时候颜色消失

'设置 Command1.Style = 1

Option Explicit

Dim cmdColor As Long

Private Sub Command1_Click()

cmdColor = cmdColor + 1

If cmdColor = 16 Then
Command1.BackColor = &H8000000F
cmdColor = -1
Else

Command1.BackColor = QBColor(cmdColor)
End If

End Sub

这是 16种颜色互相变化的程序

--------------

'设置 Command1.Style = 1

Option Explicit

Private Sub Command1_Click()

If Command1.BackColor = &H8000000F Then

Command1.BackColor = vbBlue
Else

Command1.BackColor = &H8000000F
End If

End Sub

这是蓝色、标准色之间变化的！

Private Sub Command1_Click()
If XXXX.BackColor = &H8000000F Then
XXXX.BackColor = vbRed
Else
XXXX.BackColor = &H8000000F
End If
End Sub
其中command1为按钮，XXXX为需要变色的控件名，VB中默认颜色为 &H8000000F

谢谢

在属性里设置 Comman