Option Explicit
Dim b As Boolean
Private Sub CheckBox1_Click()
If b Then Exit Sub
b = True
If CheckBox1 Then
CheckBox2 = False
CheckBox3 = False
Else
CheckBox2 = True
CheckBox3 = True
End If
b = False
End Sub
Private Sub CheckBox2_Click()
If b Then Exit Sub
b = True
If CheckBox2 Then
CheckBox1 = False
CheckBox3 = False
Else
CheckBox1 = True
CheckBox3 = True
End If
b = False
End Sub
Private Sub CheckBox3_Click()
If b Then Exit Sub
b = True
If CheckBox3 Then
CheckBox2 = False
CheckBox1 = False
Else
CheckBox2 = True
CheckBox1 = True
End If
b = False
End Sub