home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / system / inabox / clip.txt < prev    next >
Encoding:
Text File  |  1995-02-27  |  206 b   |  13 lines
  1. Sub Form_Load ()
  2.     ClipMouseMovement
  3. End Sub
  4.  
  5. Sub Form_Unload (Cancel As Integer)
  6.     UnClipMouseMovement
  7. End Sub
  8.  
  9. Sub Label1_Click (Index As Integer)
  10.     If Index = 2 Then Unload Me
  11. End Sub
  12.  
  13.