home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH5 / SRC / TESTUFF.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-02-29  |  771 b   |  33 lines
  1. Attribute VB_Name = "TweenStuff"
  2. Option Explicit
  3.  
  4. Type Polyline
  5.     NumPoints As Integer
  6.     X() As Integer
  7.     Y() As Integer
  8. End Type
  9.  
  10. Type PolylineFrame
  11.     NumPolylines As Integer
  12.     Poly() As Polyline
  13. End Type
  14.  
  15. #If Win32 Then
  16.     Declare Function GetTickCount Lib "kernel32" () As Long
  17. #Else
  18.     Declare Function GetTickCount Lib "User" () As Long
  19. #End If
  20.  
  21. ' ************************************************
  22. ' Pause until GetTickCount shows the indicated
  23. ' time. This is accurate to within one clock tick
  24. ' (55 ms), not counting variability in DoEvents
  25. ' and Windows itself.
  26. ' ************************************************
  27. Sub WaitTill(next_time As Long)
  28.     Do
  29.         DoEvents
  30.     Loop While GetTickCount() < next_time
  31. End Sub
  32.  
  33.