下面考试大给大家贴出VB中使复选框实现单选框功能代码！
　　Dim lastIndex%, bCheck As Boolean
　　Private Sub chkHonbu_Click(Index As Integer)
　　If bCheck3 Then Exit Sub Else bCheck3 = True
　　If lastIndex3 <> Index Then
　　chkHonbu(lastIndex3).Value = 0
　　lastIndex3 = Index
　　Else
　　chkHonbu(Index).Value = 1
　　End If
　　bCheck3 = False
　　End Sub
　　方法2
　　Private Sub Check1_Click()
　　If Check1.Value Then Check2.Value = 0
　　If Check1.Value = 0 And Check2.Value = 0 Then Check1.Value = 1
　　End Sub
　　Private Sub Check2_Click()
　　If Check2.Value Then Check1.Value = 0
　　If Check1.Value = 0 And Check2.Value = 0 Then Check2.Value = 1
　　End Sub方法3(最强的方法)
　　Private i As Integer
　　Private Sub Check1_Click()
　　i = i + 1
　　If i = 1 Then
　　Check2.Value = (Not Check2.Value) And 1
　　i = 0
　　End If
　　End Sub
　　Private Sub Check2_Click()
　　i = i + 1
　　If i = 1 Then
　　Check1.Value = (Not Check1.Value) And 1
　　i = 0
　　End If
　　End Sub来源：考试大