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