home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / network / ogmess / saveit.txt < prev    next >
Text File  |  1995-02-27  |  237b  |  15 lines
  1. Sub cancel_Click ()
  2. Unload saveit
  3. End Sub
  4.  
  5. Sub ok_btn_Click ()
  6. If savepath.text <> "" Then
  7.     Open savepath.text For Output As #2
  8.         Print #2, savetext
  9.         savetext = ""
  10.     Close #2
  11. End If
  12. Unload saveit
  13. End Sub
  14.  
  15.