Private Sub Löschen(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        Proc_List = CheckedListBox1.CheckedItems
 
        For Each item As String In Proc_List  'CheckedListBox1.CheckedItems
 
            CheckedListBox1.Items.Remove(CheckedListBox1.CheckedItems)
 
            Proc_List = CheckedListBox1.CheckedItems
 
        Next
 
    End Sub