Dans le même type de réponse que celle de Tegu il y a celle ci qui descend à la nanoseconde
Option Explicit
Private Declare Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean
Private Declare Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean
Dim Depart As Currency, Fin As Currency, Freq As Currency
QueryPerformanceCounter Depart
.....
QueryPerformanceCounter Fin
QueryPerformanceFrequency Freq
Debug.Print "Temps écoulé : " & ((Fin - Depart) / Freq) * 1000000000 & " ns"
|
Le Timer VB6 descend à la milliseconde,enfin je crois, de mémoire
car tu dois utiliser qqch comme
Application.Wait Now + TimeValue("00:00:01" )
|
Sinon via Gog j'ai trouvé cela http://www.vbfrance.com/code.aspx?ID=39308 ( pas testé )
Message édité par kiki29 le 19-02-2008 à 17:03:22