Ajuda del Collabora Office 24.04
Torna el número de ticks del sistema proporcionat pel sistema operatiu. Podeu utilitzar aquesta funció per optimitzar determinats processos.
GetSystemTicks()
Long
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"La pausa ha durat"
End Sub