Agrega esta función a tu formulario:
Código:
Private Sub Check1_Click()
Call MsgBox("Check1.Value = " & Check1.Value & vbCrLf & "Comparación booleana = " & IIf(Check1.Value, True, False))
End Sub
Y entonces, si cuando marcas o desmarcas el checkbox no te sale un mensaje indicándote el estado después de pulsar, mal rollo...
Si funciona bien, copia la línea del MsgBox que te he puesto arriba justo antes del
If que nos has puesto en el fragmento de código y ejecútalo, te saldrá el mismo mensaje diciéndote cómo está el checkbox justo antes de hacer la comparación. Compara el contenido del mensaje con el estado real del checkbox, a ver si así sale el duende.
