'
' GetTickCount returns the number of ticks since Windows was restarted
' It can be used to time operations
'
' Author: Joe Strazzere
'
Dim a as unsigned
a = External("kernel32","GetTickCount")
pause 3 seconds
b = External("kernel32","GetTickCount") - a
msgbox(str$(b),,"GetTickCount - duration")