home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VB_Basix767484282002.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2002-04-28  |  209 b   |  9 lines
  1. Attribute VB_Name = "Module1"
  2. Public Sub Pause(Duration As Double) 'Used for my loop.
  3.     Dim PotFace As Long
  4.     PotFace = Timer
  5.     Do Until Timer - PotFace >= Duration
  6.     DoEvents
  7.     Loop
  8. End Sub
  9.