Blinkende Label VB-Version:  VB5, VB6
	Views:  6.701

Sie möchten, dass ein Label ständig blinkt? Dann setzen Sie einen Timer auf Ihre Form und ein Label und los geht's:

Private Sub Form_Load()
  Timer1.Interval = 500  ' Intervall 0,5 Sekunden
End Sub
 
Private Sub Timer1_Timer()
  Label1.Visible = Not Label1.Visible
End Sub

Je nach vorgegebenem Intervall blinkt Ihr Label schneller oder langsamer. Sie können natürlich auch mehrere Timer und Label verwendenund diese dann unterschiedlich blinken lassen:

Private Sub Form_Load()
  Timer1.Interval = 500    ' Intervall 0,5 Sekunden
  Timer2.Interval = 1000   ' Intervall 1 Sekunde
End Sub
 
Private Sub Timer1_Timer()
  Label1.Visible = Not Label1.Visible
End Sub
 
Private Sub Timer2_Timer()
  Label2.Visible = Not Label2.Visible
End Sub

Und wenn man dann noch die Labels mit verschiedenen Hintergrundfarben ausstattet - dann wird's schön bunt.