checkbox栈溢出

Question

有什么办法让两个checkbox只选中一个。不想用option控件。Private Sub Check1_Click()
If Check2.Value = 1 Then
    Check2.Value = 0
End If
Check1.Value = 1
End SubPrivate Sub Check2_Click()
If Check1.Value = 1 Then
    Check1.Value = 0
End If
Check2.Value = 1
End Sub上述代码总是说栈溢出。后来发现当赋值时不是判断时（check1.value=0）也触发click事件，所以报错说溢出。有没有别的办法？

Answer 1

Private Sub Check1_Click()
    Check2.Value = IIf(Check1.Value = 1, 0, 1)
End SubPrivate Sub Check2_Click()
    Check1.Value = IIf(Check2.Value = 1, 0, 1)
End Sub