home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch8 / WaitTill.bas < prev   
Encoding:
BASIC Source File  |  1999-05-06  |  402 b   |  16 lines
  1. Attribute VB_Name = "WaitFuncs"
  2. Option Explicit
  3.  
  4. Declare Function GetTickCount Lib "kernel32" () As Long
  5. ' Pause until GetTickCount shows the indicated
  6. ' time. This is accurate to within one clock tick
  7. ' (55 ms), not counting variability in DoEvents
  8. ' and Windows itself.
  9. Public Sub WaitTill(next_time As Long)
  10.     Do
  11.         DoEvents
  12.     Loop While GetTickCount() < next_time
  13. End Sub
  14.  
  15.  
  16.