VB6 - Bloccare una checkbox

[MItaly]

Ti basta inserire questo codice:

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Check1.Value = 0 Then Check1.Value = 1 Else Check1.Value = 0
End Sub

dove Check1 è il nome del tuo CheckBox.