Private Sub label1_DoubleClick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.DoubleClick
        Label1.BackColor = Color.Green ' Default color
        Timer1.Enabled = Not Timer1.Enabled
    End Sub
 
    Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If Label1.BackColor.Equals(Color.Green) Then
            Label1.BackColor = Color.Yellow
        Else
            Label1.BackColor = Color.Green
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist