home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / design / vbdia / diatest.txt < prev    next >
Encoding:
Text File  |  1995-02-27  |  643 b   |  34 lines

  1. Sub Command1_Click ()
  2.    If Diamond1.Enabled = True Then
  3.       Diamond1.Enabled = False
  4.    Else
  5.       Diamond1.Enabled = True
  6.    End If
  7. End Sub
  8.  
  9. Sub Diamond1_Clicked (Button As Integer)
  10.  
  11.    Label1.Caption = ""
  12.    Label2.Caption = ""
  13.    Label3.Caption = ""
  14.    Label4.Caption = ""
  15.  
  16.    If Button = 0 Then
  17.       Label1.Caption = "Top Clicked"
  18.    End If
  19.    If Button = 1 Then
  20.       Label2.Caption = "Right Clicked"
  21.    End If
  22.    If Button = 2 Then
  23.       Label3.Caption = "Bottom Clicked"
  24.    End If
  25.    If Button = 3 Then
  26.       Label4.Caption = "Left Clicked"
  27.    End If
  28. End Sub
  29.  
  30. Sub Menu_exit_Click ()
  31.    End
  32. End Sub
  33.  
  34.