Incremento y decremento con checkboxes

[vbx3m]

Puedes probar con esto:

Código:

Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label4.Caption = Val(Label4.Caption) + 1
    Label6.Caption = Val(Label6.Caption) + 1
End Sub

Private Sub Check2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label4.Caption = Val(Label4.Caption) - 1
    Label6.Caption = Val(Label6.Caption) - 1
End Sub

Private Sub Check3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label3.Caption = Val(Label3.Caption) + 1
    Label6.Caption = Val(Label6.Caption) + 1
End Sub

Private Sub Check4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label3.Caption = Val(Label3.Caption) - 1
    Label6.Caption = Val(Label6.Caption) - 1
End Sub

Private Sub Check1_Click()
Check1.Value = False
End Sub

Private Sub Check2_Click()
Check2.Value = False
End Sub

Private Sub Check3_Click()
Check3.Value = False
End Sub

Private Sub Check4_Click()
Check4.Value = False
End Sub