Avevo chiesto il codice perchè volevo essere sicuro che fosse stato scritto tutto bene.
Cmq prova questo codice:

codice:
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Command1_Click()
Do: DoEvents
List1.AddItem Str(GetTickCount) & " " & timeGetTime
Loop Until List1.ListCount = 20
End Sub
Nonostante ci siano problemi anche con la funzione timegettime ti ho postato questo esempio in quanto si vede come la seconda funzione sia più precisa di gettickcount: timegettime ha un intervallo di campionamento minore della prima funzione.
Non so se ti potrà essere ugualmente utile, cmq fammi sapere..

CIAO