[VB.net] Propriété de checkbox décoché [Résolu]

Private Sub group_chechbox(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_ca.CheckedChanged, CheckBox_ms.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged

    Dim ensemble_checkbox As CheckBox = Nothing

    Dim nom_check_box As CheckBox = Me.ActiveControl
    If (nom_check_box.Checked = True) Then
        Dim index_checkbox As Integer
        index_checkbox = GroupBox_checkbox.Controls.IndexOf(sender)
        Select Case index_checkbox
            Case 0

                .........

            Case 1
                ................
            Case 2
            Case 3
            Case 4
            Case 5
            Case Else
                MsgBox("Erreur")
        End Select
    Else
        Dim index_checkbox As Integer
        index_checkbox = GroupBox_checkbox.Controls.IndexOf(sender)
        Select Case index_checkbox
            Case 0
                MsgBox("0 decoche")
            Case 1
                MsgBox("1 decoche")
            Case 2
            Case 3
            Case 4
            Case 5
            Case Else
                MsgBox("Erreur")
        End Select
    End If
End Sub