VB_2014_SLIP 16

 

SLIP 16_1

Option Explicit

Dim rc As Integer

Dim lcAs Integer

Dim dlb As Integer

Private Sub cmdExit_Click()

Unload Me

Form2.Show

Form2.lblLeft.Caption = lc&"  "& "Times"

Form2.lblDblClick.Caption = dlb&"  "& "Times"

Form2.lblRight.Caption = rc&"  "& "Times"

End Sub

Private Sub Form_DblClick()

'Dim dlb As Integer

lblDbl.Caption = "Double Click"

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbRightButton Then

rc = rc + 1

lblPressed.Caption = "Right Button Has been pressed"

lblDbl.Caption = ""

End If

If Button = vbLeftButton Then

lc = lc + 1

lblPressed.Caption = "Left Button Has been pressed"

lblDbl.Caption = ""

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

lblPos.Caption = X & "," & Y

End Sub