ho trovato questo....



Type Cronom
Inizio As Long
Fine As Long
End Type

Dim Cronometro as Cronom
Declare Function GetTickCount Lib "User" () As Long

Function Tempo () As Long
Tempo = Cronometro.Fine - Cronometro.Inizio
End Function

Sub Inizia ()
Cronometro.Inizio = GetTickCount()
End Sub

Sub Termina ()
Cronometro.Fine = GetTickCount()
End Sub



come faccio a farlo partire da 0 sec e fermarlo quando arriva a 15.00 sec spaccati? dovrebbe andare col dll di windows! aiuto!!! questo è un cronometro!!!