[VBA Access 2000] Disattivare un pulsante dopo n secondi

[longline]

Ciao a tutti!
Ho una maschera in cui vorrei creare un pulsante che funzionasse come uno "shift a tempo". In pratica mi servirebbe uno shift che rimanesse premuto per 3 secondi. Se passano 3 secondi senza la pressione di altri tasti, lo shift si risolleva. Se invece viene premuto un altro tasto, quest'ultimo dovrà ovviamente tener conto della pressione dello shift e farà ripartire il conteggio dei tre secondi.

Non mi viene in mente come fare, potete suggerirmi qualche metodo, una keyword che magari ora non mi sovviene.... un qualche aiuto, non so come fare!

Grazie!

[longline]

datInizio = Now()
Me.cmdTest.ForeColor = 255
Do Until DateAdd("s", 3, datInizio) < Now()
Loop 
Me.cmdTest.ForeColor = 0

In questo modo riesco ad accendere e a spegnere lo shift. Il problema è che nel frattempo la form è come congelata e non riesco a premere altri pulsanti...

[longline]

Come volevasi dimostrare, ero io che non ricordavo una funzionalità: devo usare la proprietà TimerInterval per impostare ogni quanti millisecondi provocare l'evento OnTimer della maschera.