home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus031.dsk / TIMER.LSS < prev    next >
Encoding:
Text File  |  1995-07-11  |  395 b   |  14 lines
  1. 'Place this line in the Declarations section of your script
  2. 'Dim ThisTimer As LWPTimer
  3.  
  4. 'Theses lines name the timer within Word Pro, set the interval in seconds and turn the timer on
  5. Set ThisTimer = Bind("MyTimer")
  6. ThisTimer.Interval = 2
  7. ThisTimer.Enabled = True
  8.     
  9. On Event TimerTick From ThisTimer Call ThisTimerTick
  10.  
  11.  
  12. Sub ThisTimerTick(Source As LWPTimer)
  13.     Print "Tick - Tick " 
  14.