[VB6DAO]

كود :

Dim s As New List(Of String)

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

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