home *** CD-ROM | disk | FTP | other *** search
/ The Mother of All Windows Books / CD-MOM.iso / cd_mom / newsletr / vbz / vbz1-3 / ssavet.bas < prev    next >
BASIC Source File  |  1993-06-12  |  249b  |  18 lines
  1. DefInt A-Z
  2.  
  3. Global Const AppName$ = "Test Saver"
  4.  
  5. Sub CleanUp ()
  6.     Unload frmSave
  7. End Sub
  8.  
  9. Sub InitSave ()
  10.     frmSave.timSave.Interval = 1000
  11.     frmSave.timSave.Enabled = True
  12.     frmSave.Show
  13. End Sub
  14.  
  15. Sub TimerProc ()
  16. End Sub
  17.  
  18.