Originariamente inviato da MItaly
Usa un timer e un controllo Shape, abilitando/disabilitando il timer alla pressione del pulsante e gestendo il cambiamento di colore del controllo Shape all'interno dell'evento Timer del timer.
Se uso il timer continua all'infinito è non dura solo 10 sec.

esempio
comand1_click
timer1.enabled=true
timer2.enabled=true
end sub


Private Sub Timer1_Timer()
shape1.backcolor=&H8000000F&
End Sub
Private Sub Timer1_Timer()
shape1.backcolor=&H8000005F&
End Sub

cosi continua all'infinito