Private Sub Timer1_Timer()
Static toto As Date, titi As Date
If toto = 0 Then toto = Now: titi = Now
If DateDiff("s", titi, Now) >= 10 Then
If Label1.ForeColor = vblack Then Label1.ForeColor = vbRed Else Label1.ForeColor = vbBlack
titi = Now
End If
If DateDiff("s", toto, Now) >= 1 Then
Label1.Caption = Time
toto = Now
End If
End Sub
Modifié par @Danny2015 le 29/01/2015 à 11:00