傳回由作業系統提供的系統週期數目。此函數可用於最佳化某些進程。
GetSystemTicks ()
錯誤代碼
5 無效的程序呼叫
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub