多个checkbox如何实现单选功能，就像OptionButton一样？
我在checkbox的click事件处理，如果发现同组checkbox已经有选择，就取消选择，但是，checkbox.values=0 就触发了新的click事件，总是不能很好的实现单选功能，总是需要多点一次。

请大家指教。


[解决办法]
试试

Dim ldk As Integer
Private Sub Form_Load()
ldk = -1
End Sub
Private Sub Check1_Click(Index As Integer)
Dim idx As Integer

If ldk <> -1 And ldk <> Index Then Exit Sub
ldk = Index
Check1(Index).Value = Checked
For idx = 0 To Check1.UBound
If idx <> Index Then
Check1(idx).Value = Unchecked
End If
Next
ldk = -1
End Sub