Axuda do Collabora Office 24.04
Devolve o número de ticks do sistema que proporciona o sistema operativo. Pode utilizar esta función para optimizar certos procesos.
GetSystemTicks()
Long
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " ticks" ,0,"A pausa durou"
End Sub