Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
Dim Coche As Boolean = False
'on ajoute des éléments à la checklistBox en cochant un sur deux
For i As Integer = 1 To 6
Chk.Items.Add("Item " & i, Coche)
Coche = Not Coche
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
'on boucle pour chaque élément en partant du bas
For i As Integer = Chk.Items.Count To 1 Step -1
'si l'indice fait parti des indices "Coché" On Efface l'item
If Chk.CheckedIndices.Contains(i) Then Chk.Items.RemoveAt(i)
Next
End Sub