VB里用多选框怎么做单选

VB里用多选框怎么做单选？

简单一种办法用控件数组在这里解释一下，控件数组简单的理解就是N个同类型控件一个名字，只是各自编号不同（index）比如有100个多选框，那么就是如下代码---注意之所以将代码放在MouseUp事件是为了防止连续出发Click事件产生“堆栈控件溢出”错误Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 99 100个控件 100-1=9Check1(i).Value = 0
Next
Check1(Index).Value = End Sub