Private Sub Lable1_MouseDown
Lable2.Caption =Lable1.Caption * Check1.Tag
End Sub

If Button = 1 then
Label1.Caption = Lable1.Caption + 1
Elsif Button = 2 Then
Lable1.Caption = Lable1.Caption-1
End if
End Sub