单选框，只能选择其中一个。

Private Sub Check3_Click(I As Integer)
If I = 0 And Check3(0).Value = 1 And Check3(1).Value = 1 Then Check3(1).Value = 0
If I = 1 And Check3(1).Value = 1 And Check3(0).Value = 1 Then Check3(0).Value = 0
End Sub