[VB6] Disegnare led ad intermittenza

[MItaly]

Option Explicit
Private timerTicks As Long

Private Sub Command1_Click() 'Pulsante che abilita l'intermittenza
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
timerTicks = timerTicks + 1
If timerTicks Mod 2 Then
    Shape1.FillColor = 0 'Colore 1
Else
    Shape1.FillColor = &HFFFFFF 'Colore 2
End If
If timerTicks = 10000 / Timer1.Interval Then '10000 = numero di msec entro cui si deve disattivare l'intermittenza
    timerTicks = 0
    Timer1.Enabled = False
End If
End Sub