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

private void button1_Click(object sender, EventArgs e)
{
    MessageBox.Show(RemoveCheckedItems(checkedListBox1).ToString() + _
      " élément(s) supprimé(s)");
}
/// <summary>
/// Fonction supprimant tous les items cochés dans une CheckedListBox
/// </summary>
/// <param name="chk">L'objet CheckListBox dont on doit supprimer les _
  élements</param>
/// <returns>Le Nombre d'items supprimés</returns>
public int RemoveCheckedItems(CheckedListBox chk)
{
    //initialise le résultat
    int result= 0;
    //on boucle pour chaque items
    for (int i = chk.Items.Count; i > 0; i--)
    {
        //si i est contenu dans les indices cochés
        if (chk.CheckedIndices.Contains(i))
        {
            //on efface l'items à l'indice i
            chk.Items.RemoveAt(i);
            //on incrémente le nombre d'éléments supprimés
            result++;
        }
    }
    return result;
}

Function RemoveCheckedItems(oLB As ListBox) As Long
    RemoveCheckedItems = 0
    Dim i As Integer
    With oLB
        For i = .ListCount - 1 To 0 Step -1
            If .Selected(i) Then
                .RemoveItem i
                RemoveCheckedItems = RemoveCheckedItems + 1
            End If
        Next i
    End With
End Function

procedure DeleteChecked(CheckListBox: TCheckListBox);
var N : integer;
begin
  with CheckListBox do
  begin
    Items.BeginUpdate;
    try
      for N := Count-1 downto 0 do
        if Checked[N] then
          Items.Delete(N);
    finally
      Items.EndUpdate;
    end;
  end;
end;