Eliminare uno o più item di una ListBox selezionati con il mouse

Per eliminare uno o più item di una ListBox, selezionati con il mouse, bisognerà innanzitutto assegnare alla Proprietà ".Mode" della ListBox la Costante ".Multiple" della Classe statica Select.

Mostriamo quindi un possibile codice:

Public Sub Form_Open()

 With ListBox1
' Assegnazione eslicita di vaori stringa per 5 elementi della "ListBox":>
   .List = ["aaaa", "bbbb", "cccc", "dddd", "eeee"]
' Consente di selezionare con il mouse più di un elemento della "ListBox":>
   .Mode = Select.Multiple
 End With

End


Public Sub ListBox1_Leave()

 For b As Byte = 0 To ListBox.List.Max
   If ListBox1[b].Selected Then 
     ListBox1.Remove(b)
     b -= 1
   Endif 
 Next

End