home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / demo / btdemo / btdemo.bas < prev    next >
Encoding:
BASIC Source File  |  1995-02-27  |  260 b   |  13 lines
  1.  
  2.  
  3. Sub Untoggle (index As Integer)
  4.     For i = 0 To 21
  5.         If (MiscForm.MiscButton1(i).Toggled = -1) Then
  6.             If (i <> index) Then
  7.                 MiscForm.MiscButton1(i).Toggled = 0
  8.             End If
  9.         End If
  10.     Next i
  11. End Sub
  12.  
  13.