home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch15 / timermod / timermod.bas < prev    next >
Encoding:
BASIC Source File  |  1996-06-05  |  212 b   |  13 lines
  1. Attribute VB_Name = "TimerModule"
  2. Public TotalInterval As Double
  3. Dim T1 As Double
  4.  
  5. Sub StartCounting()
  6.     T1 = Time
  7. End Sub
  8.  
  9. Sub StopCounting()
  10.     TotalInterval = TotalInterval + Time - T1
  11. End Sub
  12.  
  13.