check box code reduction help

[softwareguy74]

Hi,

I'm using the following code to uncheck/check a check box:

Private Sub picBPCredit_Click()

    '-- check/uncheck the checkbox
    If chkBPCredit.Value = 0 Then
        chkBPCredit.Value = 1
    Else
        chkBPCredit.Value = 0
    End If
    
End Sub

I know the above code can be reduced to 1 or 2 lines but I forgot how to do it.. The reduced code reads something like: "value of check box not equal to current value of check.." or something like that but I just can't figure it out..

Any help would be appreciated..

Dan