Wednesday, April 29, 2009

Get Tick Count

'Get TickCount



Private Declare Function GetTickCount&
Lib "kernel32" ()



Private Sub Form_Load()

ret& = GetTickCount&

MsgBox Str$(ret& / 60000) + " minutes."

End Sub



 

No comments:

Post a Comment