Inserisci in un form l'oggetto TIMER
IMPOSTA la proprietà INTERVAL=1000
inserisci questo:
Private Sub Timer1_Timer()
Static Secondi As Long
Secondi = Secondi + 1
If Secondi = 120 Then
'qui inserisci il codice da eseguire per TEMPO ESAURITO
End If
End Sub
*** in questo esempio è considerato un tempo pari a 120 secondi ==== 2 minuti
Ciao
|