Ehm
codice:
Dim lampeggia As Integer
lampeggia = 0
Deve essere scritto prima della sub, ogni volta che il timer viene eseguito il valore lampeggia viene sempre posto a zero e l'else if non viene eseguito...