January 1, 2005

WinTask - GetTickCount

'
' 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")