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