[VB6] checbox - disabilitare selezione multipla

[Luciano79]

fai così:

Private Sub CheckGruppo1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    For Each CheckBox In CheckGruppo1
        If CheckBox.Index <> Index Then
            CheckBox.Value = vbUnchecked
        End If
    Next
End Sub