两个checkbox的联动有关问题

两个checkbox的联动问题
不想让两个同时被选中，所以设置如果自身被选中，则将另一个设为不选中状态

Private Sub chk1_Click()
  if chk1.Value = 1 then chk2.Value = 0
End Sub
Private Sub chk2_Click()
  if chk2.Value = 1 then chk1.Value = 0
End Sub

结果发现，设置值的语句chk1.Value = 0会导致Private Sub chk1_Click()的调用，成循环了
如何解决这个问题呢

------解决方案--------------------
这样就可以了:
Private Sub chk1_Click()

If Chk1.Value = 1 And Chk2.Value = 1 Then
Chk2.Value = 0
End If
End Sub

Private Sub Chk2_Click()
If Chk2.Value = 1 And Chk1.Value = 1 Then
Chk1.Value = 0
End If

End Sub