Private Sub Form_Load()
  Timer1.Interval = 400
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Label1.BackColor = IIf(Label1.BackColor = vbRed, vbGreen, vbRed)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de