For i As Integer = ListBox1.Items.Count To 1 Step -1 If ListBox1.CheckedIndices.Contains(i) Then ListBox1.Items.RemoveAt(i) Next