[VB6DAO]

كود :

Dim s As New List(Of String)

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

        For Each t In s
            ListBox2.Items.Add(t)
        Next