Problema con CheckBox

dav_gij
17 de Mayo del 2004
Tengo un problema,quiero que cuando pinche en un checkbox me salga un mensaje(me sale),y si en el mensaje le dices que no,se quede en el estado que estaba al principio el checkbox.Tengo este c贸digo y no me sale:
Private Sub chkAnulado_Click()
Dim respuesta As Integer
If chkAnulado.Value = 0 Then
respuesta = MsgBox("¿Seguro que el pedido no est谩 anulado?", vbYesNo, "Desanular pedido")
If respuesta = 7 Then
chkAnulado.Value = 0
End If
Else
respuesta = MsgBox("¿Seguro que quiere anular el pedido?", vbYesNo, "Anular pedido")
If respuesta = 7 Then
chkAnulado.Value = 1
End If
End If
End Sub

dav_gij
17 de Mayo del 2004
Ya me di cuenta de que los values estaban al rev茅s,pero ahora tengo otro problema.como nada mas pinchar en el checkbox se marca,si luego a trav茅s de c贸digo lo pones como estaba anteriormente es como si le hicieses otro click y entonces me sale el otro mensaje¿C贸mo lo puedo arreglar?

dav_gij
17 de Mayo del 2004
No hace falta que me contesteis,ya esta arreglado