窗体添加两个chck
勾选check1后check2打钩的话把钩去掉
反过来勾选check2那么check1前东德勾要去掉

if check2.vlue=1 then check2.vlue=0

反之

if check1.vlue=1 then check1.vlue=0


可是check的反应时，如果check2已经打钩了，点check1的 时候，点一下check2的钩子去掉了，可是check1钩子却没有打上，状态变成两个都没有勾上，
必须要再次点check1才能在check1上打上钩子。

这是什么问题？
该怎么写？

Private Sub Check1_Click()
 If Check2.Value = 1 Then
    Check2.Value = 0
    Check1.Value = 1
 End If
End Sub

Private Sub Check2_Click()
   If Check1.Value = 1 Then
     Check1.Value = 0
     Check2.Value = 1
   End If
End Sub

不行啊

前两天用手机上不方便，谢谢您的指点，不过有有点缺陷我稍做修改，请指点下，也供大家借鉴探讨！
Private Sub Check1_Click()
  If Not Check1.Enabled Then Exit Sub
  Check2.Enabled = False
  Check2.Value = Check1.Value Xor 1
  Check2.Value = False’没有这句会出现控件值为true，enabled属性为False状态
  Check2.Enabled = True
  If Check1.Value = False Then Check1.Value = True’加这句是因为如果打钩状态下再点会出现两个check都为Flase状态。有这句后点多少次都是true状态
End Sub

Private Sub Check2_Click()
  If Not Check2.Enabled Then Exit Sub
  Check1.Enabled = False
  Check1.Value = Check2.Value Xor 1
  Check1.Value = False’没有这句会出现控件值为true，enabled属性为False状态
  Check1.Enabled = True
  If Check2.Value = False Then Check2.Value = True’加这句是因为如果打钩状态下再点会出现两个check都为Flase状态。有这句后点多少次都是true状态
End Sub

嗯，谢谢！我是在学习中，想要尝试控件的使用方法，所以在做做实验！谢谢您的帮助！


不过不加这句
Check1.Enabled = True
还是会出现灰色打钩现象的。
If Check1 = 0 Then Check1 = 1: Exit Sub 这句只能加在sub前面，要不然灰色钩子去不掉的。

[ 本帖最后由 wxflw 于 2014-10-9 11:09 编辑 ]