timeGetTime functions alows you to get the time in milliseconds.

VB Code:
  1. Private Declare Function timeGetTime Lib "winmm.dll" () As Long
  2.     Dim myTime As Long
  3.         myTime = timeGetTime 'gets the time from workstations startup in ms