home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH14 / SRC / WAITTILL.BAS < prev   
Encoding:
BASIC Source File  |  1996-04-16  |  631 b   |  23 lines
  1. Attribute VB_Name = "WaitFuncs"
  2. Option Explicit
  3.  
  4. #If Win32 Then  ' 32-bit VB.
  5.     Declare Function GetTickCount Lib "kernel32" () As Long
  6. #Else           ' 16-bit VB.
  7.     Declare Function GetTickCount Lib "User" () As Long
  8. #End If
  9.  
  10. ' ************************************************
  11. ' Pause until GetTickCount shows the indicated
  12. ' time. This is accurate to within one clock tick
  13. ' (55 ms), not counting variability in DoEvents
  14. ' and Windows itself.
  15. ' ************************************************
  16. Sub WaitTill(next_time As Long)
  17.     Do
  18.         DoEvents
  19.     Loop While GetTickCount() < next_time
  20. End Sub
  21.  
  22.  
  23.