Il codice sorgente non è stato renderizzato quiperchè non c'è sufficiente spazio.Clicca qui per visualizzarlo in una nuova finestra
Dim x As Integer For x = (ListBox1.Items.Count - 1) To 0 Step -1 If ListBox1.Items(x).Selected = True Then ListBox1.Items.RemoveAt(ListBox1.Items.IndexOf(ListBox1.Items(x))) End If Next
Dim i As Integer For i = (Me.ListBox1.Items.Count - 1) To 0 Step -1 If Me.ListBox1.GetSelected(i) = True Then Me.ListBox1.Items.RemoveAt(Me.ListBox1.Items.IndexOf(Me.ListBox1.Items(i))) End If Next