请教CheckBox控件实现和OptionButton控件一样的功能遇到的一个小问题..在线等...

Question

新建一个窗体。在窗体上面添加四个CheckBox是数组０－2。控件数组名是Check1
然后添加以下代码。Private Sub Check1_Click(Index As Integer)
    Select Case Index
            Case 0
                Check1.Item(0).Value = 1
                Check1.Item(1).Value = 0
                Check1.Item(2).Value = 0
            Case 1
                Check1.Item(0).Value = 0
                Check1.Item(1).Value = 1
                Check1.Item(2).Value = 0
            Case 2
                Check1.Item(0).Value = 0
                Check1.Item(1).Value = 0
                Check1.Item(2).Value = 1
    End Select
End Sub
我想要实现的功能是当按其中一个CheckBox时根据Index值。只选中Index的那个。其余的取消选中。上面那些代码说堆栈空间溢出。我一步一步调式时发现选了好几次。
在线等。。

Answer 1

Private Sub Check1_Click(Index As Integer)
If Check1.Item(Index) = 0 Then Exit Sub
    Select Case Index
            Case 0
                Check1.Item(1).Value = 0
                Check1.Item(2).Value = 0
            Case 1
                Check1.Item(0).Value = 0
                Check1.Item(2).Value = 0
            Case 2
                Check1.Item(0).Value = 0
                Check1.Item(1).Value = 0
    End Select
End Sub