GetSystemTicks Function
αααα‘ααβα ααα½αββααΌααα·αβααααααααβ αααβααΆαβαααααβαααβααααααααββααααα·ααααα·ααΆαβΒ α α’αααβα’αΆα βααααΎβα’αα»ααααβββαααβ ααΎααααΈβαααααΎαβααααα·αααα·ααΆαβββααααΎαβααΆαβαα·αααααΆααβΒ α
ααΆαααβααααααα α
GetSystemTicks()
αααααβαααα‘αα α
Long
α§ααΆα ααα α
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
Wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub