3 adet CheckBox'u diğerlerinden Bağımsız işaretleme

[Ergün Güler]

selam,
aşağıdaki kodlar ile bir CheckBox seçildiği zaman diğer kalan 2 tanesi şeçili ise kaldırılsın istiyorum. Beceremedim bir türlü yardımcı olabilir misiniz?

İyi çalışmalar.

Private Sub CheckBox1_Change()
CheckBox2 = False
CheckBox3 = False
End Sub

Private Sub CheckBox2_Change()
CheckBox1 = False
CheckBox3 = False
End Sub

Private Sub CheckBox3_Change()
CheckBox1 = False
CheckBox2 = False
End Sub

 

[Ergün Güler]

Selam,
aşağıdaki gibi çözümü buldum. Alternatif çözümler olursa yine beklerim.
İyi çalışmalar.

Private Sub CheckBox1_Change()

If CheckBox1 = True Then
CheckBox2 = False
CheckBox3 = False
End If

End Sub

Private Sub CheckBox2_Change()

If CheckBox2 = True Then
CheckBox1 = False
CheckBox3 = False
End If

End Sub

Private Sub CheckBox3_Change()

If CheckBox3 = True Then
CheckBox1 = False
CheckBox2 = False
End If

End Sub