[Débutant] Checkbox désactiver avec condition

Bonsoir je suis débutant et j'avais une petite question.

Je dispose de Visual Basic 2010 Express Édition et de :

* Une form
* 3 checkboxs

Mon but est de désactiver la possibilité de cocher la checkbox 2 et 3 si la checkbox 1 est cochée. (Pareil pour les autres)

Je voulais savoir si il y avais plus intelligent ou rapide comme code que celui ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class Form1
 
    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then CheckBox2.Enabled = False Else CheckBox2.Enabled = True
        If CheckBox1.Checked = True Then CheckBox3.Enabled = False Else CheckBox3.Enabled = True
    End Sub
 
    Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then CheckBox1.Enabled = False Else CheckBox1.Enabled = True
        If CheckBox2.Checked = True Then CheckBox3.Enabled = False Else CheckBox3.Enabled = True
    End Sub
 
    Private Sub CheckBox3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then CheckBox1.Enabled = False Else CheckBox1.Enabled = True
        If CheckBox3.Checked = True Then CheckBox2.Enabled = False Else CheckBox2.Enabled = True
 
    End Sub
End Class

Comme Par exemple

Code:

If toutes les checkbox sont cauché sauf alors

Très cordialement, :ccool: