Function GetSelectedItems(ByRef lstBox As ListBox) As List(Of Object)
'lstBox listbox de recherche
'retour liste générique des items trouvés
Dim listRet As New List(Of Object)
If Not lstBox Is Nothing Then
For Each o As Object In lstBox.SelectedItems
listRet.Add(o)
Next o
End If
Return listRet
End Function