home *** CD-ROM | disk | FTP | other *** search
- Sub Command1_Click ()
- If Diamond1.Enabled = True Then
- Diamond1.Enabled = False
- Else
- Diamond1.Enabled = True
- End If
- End Sub
-
- Sub Diamond1_Clicked (Button As Integer)
-
- Label1.Caption = ""
- Label2.Caption = ""
- Label3.Caption = ""
- Label4.Caption = ""
-
- If Button = 0 Then
- Label1.Caption = "Top Clicked"
- End If
- If Button = 1 Then
- Label2.Caption = "Right Clicked"
- End If
- If Button = 2 Then
- Label3.Caption = "Bottom Clicked"
- End If
- If Button = 3 Then
- Label4.Caption = "Left Clicked"
- End If
- End Sub
-
- Sub Menu_exit_Click ()
- End
- End Sub
-
-