[VB6DAO]

كود :

Dim s As New List(Of [color=#FF0000]String[/color])

        For Each itm In ListBox1.SelectedItems
            s.Add(itm)


        Next