home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH5 / SRC / STOCKS.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-02-23  |  594 b   |  23 lines
  1. Attribute VB_Name = "WaitFuncs"
  2. Option Explicit
  3.  
  4. #If Win32 Then
  5.     Declare Function GetTickCount Lib "kernel32" () As Long
  6. #Else
  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.