Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sCount As Integer = ListBox1.SelectedItems.Count - 1 Dim itm(sCount) As Object Dim i As Integer = 0 For Each chemin In ListBox1.SelectedItems itm(i) = chemin i = i + 1 Next For i = 0 To sCount ListBox1.Items.Remove(itm(i)) Next End Sub