Move your Click Event Code to the MouseUp Event, eg.
Code:
Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button <> vbLeftButton Then Exit Sub
    'Place code from Click Event Here..
    MsgBox "Click"
End Sub

Private Sub Command1_Click()
    Check1 = Abs(1 - Check1)
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]