请问这个CheckBox控件的代码该怎么写

Question

CheckBox1.value=1     '钩上
CheckBox1.value=0     '去掉钩
为图显示与否在CheckBox1的Click事件里面写

Answer 1

Private Sub Command1_Click()
    CheckBox1.value=1     '加上钩
End Sub
Private Sub Command1_Click()
    CheckBox1.value=0     '去掉钩
End Sub

Answer 2

Sub Command1_Click()
    CheckBox1.value=checked
    CheckBox1.Enable=true
    Image1.Visible=True
End SubSub CheckBox1_Click()
    Image1.Visible=False
    CheckBox1.Enable=False
    CheckBox1.Value=Unchecked
End Sub