Función GetSystemTicks

Devuelve el número de ticks del sistema que proporciona el sistema operativo. Esta función puede utilizarse para optimizar algunos procesos.

Sintaxis:

GetSystemTicks()

Valor de retorno:

Largo

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:

Sub ExampleWait

Dim lTick As Long

    lTick = GetSystemTicks()

    Wait 2000

    lTick = (GetSystemTicks() - lTick)

    MsgBox "" &  lTick & " Ticks" ,0,"La pausa ha durado"

End Sub