[VB6DAO]

كود :

For Each itm In ListBox1.SelectedItems
            If ListBox1.DataSource IsNot Nothing Then
                ListBox2.Items.Add(ListBox1.GetItemText(itm))
            Else
                ListBox2.Items.Add(itm)
            End If
        Next