'Fonction supprimant les éléments séléctionnés d'un listbox
'renvoie le nombre d'éléments supprimés
Public Function DeleteSelectedItems(ByRef Li As ListBox) As Integer
'Initialise le résultat
Dim resultat As Integer = Li.SelectedIndices.Count
For i As Integer = Li.Items.Count - 1 To 0 Step -1
If Li.SelectedIndices.Contains(i) Then Li.Items.RemoveAt (i)
Next
Return resultat
End Function
'Exemple d'appel
MsgBox (DeleteSelectedItems(ListBox1))