Option Explicit
Dim nStatus As Integer
 
Private Sub Command1_Click()
  nStatus = IIf(nStatus = 1, 0, 1)
  Label1.BackColor = Choose(nStatus + 1, vbRed, vbGreen)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de