在后台绑定一个方法加以判读：
后代代码如下：
Private Sub CheckBox1_Click()
If MsgBox("是否", vbYesNo) = vbYes Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
End Sub
可参照附件
