Function GetSelectedItems(ByRef lstBox As ListBox, Optional ByRef asRet) As Integer
'lstBox     listbox de recherche
'asRet      tableau string retournant les items
'retour     nombre d'items trouvés
    Dim i As Integer
    Dim j As Integer
    
    j = -1
    If Not lstBox Is Nothing Then
        If IsMissing(asRet) Then ReDim asRet(0)  As String
        For i = 0 To lstBox.ListCount - 1
            If lstBox.Selected(i) Then
                j = j + 1
                ReDim Preserve asRet(j)
                asRet(j) = lstBox.List(i)
            End If
        Next i
    End If
    
    GetSelectedItems = j + 1
End Function


'EXEMPLE 1 : COMPTER
MsgBox "il y a " & CStr(GetSelectedItems(List1)) & "  item(s) sélectionné(s)"

'EXEMPLE 2 :  LISTER
Dim items() As String
If GetSelectedItems(List1, items) > 0 Then
    MsgBox "Les items sélectionnés sont  :" & vbCrLf & _
           "- " & Join(items, vbCrLf & "- ")
Else
    MsgBox "aucun item sélectionné"
End If

    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

{ version procedure simple }
procedure GetSelectedItems(Src: TListBox; Dest: TStrings; const ClearDest: boolean=true);
var N : integer;
begin
  Dest.BeginUpdate;
  try
    if ClearDest then
      Dest.Clear;
    for N := 0 to Src.Count - 1 do
      if Src.Selected[N] then
        Dest.Add(Src.Items[N]);
  finally
    Dest.EndUpdate;
  end;
end;

{version class helper (D2007 ou superieur)}
type
  TListBoxHelper = class helper for TListBox
  public
    procedure AssignSelectionTo(Dest: TStrings);
  end;

procedure TListBoxHelper.AssignSelectionTo;
var N : integer;
begin
  Dest.BeginUpdate;
  try
    Dest.Clear;
    for N := 0 to Count-1 do
      if Selected[N] then
        Dest.Add(Items[N]);
  finally
    Dest.EndUpdate;
  end;
end;