Funzione GetSystemTicks

Restituisce il numero di scatti di sistema eseguiti dal sistema operativo. Questa funzione può essere usata per ottimizzare alcuni processi.

Sintassi:

GetSystemTicks()

Valore restituito:

Long

Codici di errore:

5 Richiamo di procedura non valido

Esempio:

Sub ExampleWait

Dim lTick As Long

    lTick = GetSystemTicks()

    Wait 2000

    lTick = (GetSystemTicks() - lTick)

    MsgBox "" & lScatti & " Scatti" ,0,"La pausa è durata"

End Sub