Удаление одновременно нескольких элементов из ListBox

    For i = 0 To ListBox1.Items.Count - 1
            For j = 0 To ListBox1.SelectedItems.Count - 1
                If ListBox1.Items(i).ToString = ListBox1.SelectedItems.Item(j).ToString Then
                    ListBox1.Items.RemoveAt(i)
                    ListBox1.Refresh()
                End If
            Next
        Next

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Long
        For i = 0 To ListBox1.Items.Count - 1
            If ListBox1.SelectedItem = True Then
                ListBox1.Items.Remove(ListBox1.SelectedItem)
            End If
        Next i
    End Sub

For ListBox1.listindex = 0 To ListBox1.Items.Count - 1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do While ListBox1.SelectedIndices.Count <> 0 'While ListBox1.SelectedIndices.Count > 0 'Until ListBox1.SelectedIndices.Count = 0
            ListBox1.Items.Remove(ListBox1.SelectedItems(0))
            'ListBox1.Items.Remove(ListBox1.SelectedItem)
            'ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(0))
        Loop
    End Sub

 Do Until ListBox4.SelectedItems.Count = 0
    'For i As Integer = 0 To ListBox4.SelectedItems.Count - 1
            ListBox2.Items.Add(ListBox4.SelectedItems(0)) '
    'ListBox4.Items.RemoveAt(ListBox4.SelectedIndices(0)) '
            ListBox4.Items.Remove(ListBox4.SelectedItems(0))
    'Next
        Loop
 
 
 
 
          Do While ListBox1.SelectedItems.Count > 0
            ListBox2.Items.Add(ListBox1.SelectedItems(0))
            ListBox1.SetSelected(ListBox1.SelectedIndices(0), False)
    'ListBox2.Items.Add(ListBox1.SelectedItem)
    'ListBox1.SetSelected(ListBox1.SelectedIndex, False)
        Loop
 
 
 
 
           Do While ListBox1.FindString("a") > 0
            ListBox1.Items.RemoveAt(ListBox1.FindString("a"))
        Loop
 
 
 
 
        While ListBox1.FindStringExact("asd") > 0
            ListBox1.Items.RemoveAt(ListBox1.Items.IndexOf("asd"))
        End While
 
 
 
 
 
    'For Each item As ListViewItem In ListView1.SelectedItems
    'ListView1.Items(item.Index).Selected = True
    'ListView1.Items(item.Index).Remove 
    'Next
        For s As Integer = 0 To ListView1.SelectedItems.Count - 1
    'ListView2.Items(ListView1.SelectedItems(s).Index).Selected = True
            ListView2.Items(ListView1.SelectedIndices(s)).Selected = True
        Next

For i = ListBox1.Items.Count - 1 To 0 Step -1
            For j = 0 To ListBox1.SelectedItems.Count - 1
                If ListBox1.Items(i).ToString = ListBox1.SelectedItems.Item(j).ToString Then
                    ListBox1.Items.RemoveAt(i)
                    ListBox1.Refresh()
                End If
            Next
        Next

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.Click
        For Each Item In ListBox1.Items.ToString
            ListBox1.Items.Remove(ListBox1.SelectedItem)
        Next
End Sub

        For I As Integer = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(I))
        Next

            For Each Item In ListBox1.SelectedItems.ToString
                ListBox1.Items.Remove(ListBox1.SelectedItem)
            Next

For Each Item As ListViewItem In ListBox1.SelectedItems
    Item.Remove
Next

For Each Item As ListViewItem In ListBox1.SelectedItems
 Item.Remove
Next Item

For i = ListBox1.Items.Count - 1 To 0 Step -1
            If ListBox1.SelectedIndices.Contains(i) Then
                ListBox1.Items.Remove(ListBox1.Items(i))
            End If
        Next