Incremento y decremento con checkboxes

[X.Cyclop]

Estoy tratando de sumar y restar los valores mediante checkboxes. Tengo 2 labels que indican las cantidades, 4 checkboxes que son para incrementar y decrementar de a 1.
Tengo este código que hace todo bien, solo que incremente y decrementa de a 2, no de a 1:

Código PHP:

  'Suma y resta con checkboxes
'---------------------------------

Option Explicit
Private Sub Check1_Click()
lbl4.Caption = Val(lbl4.Caption) + 1
Check1.Value = False
lbl6.Caption = Val(lbl6.Caption) + 1
End Sub

Private Sub Check2_Click()
lbl4.Caption = Val(lbl4.Caption) - 1
Check2.Value = False
lbl6.Caption = Val(lbl6.Caption) - 1
End Sub

Private Sub Check3_Click()
lbl3.Caption = Val(lbl3.Caption) + 1
Check3.Value = False
lbl6.Caption = Val(lbl6.Caption) + 1
End Sub

Private Sub Check4_Click()
lbl3.Caption = Val(lbl3.Caption) - 1
Check4.Value = False
lbl6.Caption = Val(lbl6.Caption) - 1
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Check1.Caption = "+"
Check2.Caption = "-"
Check3.Caption = "+"
Check4.Caption = "-"
lbl1.Caption = "Número 1"
lbl2.Caption = "Número 2"
lbl3.Caption = "0"
lbl4.Caption = "0"
lbl5.Caption = "El resultado es:"
Command1.Caption = "Salir"
End Sub  
   

¿Qué está mal?


A ver si queda más claro con la imagen:

[Developer9]

Podrias explicar mejor cual es el checkbox1, 2, 3 y 4. Y que es lo que quieres hacer?

Se ve sencillo

[X.Cyclop]

Ok. Al hacer click en un checkbox se suma o se resta 1 al label de arriba y al label del resultado.

[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

[Developer9]

Yo mañana te traigo otra respuesta

[X.Cyclop]

Bueno, voy a probar eso de vbx3m. Gracias

[EDIT]

Juju, salió. Gracias!