Fonction GetSystemTicks

Renvoie le nombre de cycles système fournis par le système d'exploitation. Vous pouvez utiliser cette fonction pour optimiser certains processus.

Syntaxe :

GetSystemTicks()

Valeur de retour :

Long

Codes d'erreur :

5 appel de procédure incorrect

Exemple :

Sub ExampleWait

Dim lTick As Long

    lTick = GetSystemTicks()

    Wait 2000

    lTick = (GetSystemTicks() - lTick)

    MsgBox "" & lTick & " Cycles" ,0,"La pause a duré"

End Sub