Since VB uses a signed long will gettickcount roll back to zero after it
reaches 2147483647? Will the following code work or does anyone see a more
efficient solution.

Public Function GetTicks() As Single

  Static LastTick As Long
  Static Base As Single

  Dim NowTick As Long
  NowTick = GetTickCount()
  If NowTick < LastTick Then Base = Base + 2147483647
  LastTick = NowTick
  GetTicks = Round(Base + CSng(NowTick) / 1000, 3)

End Function

Neal,

From the SDK:

The elapsed time is stored as a DWORD value. Therefore, the time will wrap
around to zero if the system is run continuously for 49.7 days.
If you need a higher resolution timer, use a multimedia timer or a
high-resolution timer.

Windows NT/2000: To obtain the time elapsed since the computer was started,
retrieve the System Up Time counter in the performance data in the registry
key HKEY_PERFORMANCE_DATA. The value returned is an 8-byte value. For more
information, see Performance Monitoring.

--
Jonathan Wood
SoftCircuits Programming
http://www.softcircuits.com

Hello!

No, It becames -2147483648.

 If NowTick < LastTick Then Base = Base + 4294967296

The precision of your function will decrease as value grows. I recommend you
to use Currency variables instead Single. It overflows after years.

Sergey Merzlikin