[VB6DAO]

كود :

For a = 0 To ListBox1.Items.Count - 1
            If ListBox1.GetSelected(a) Then
                ListBox2.Items.Add(ListBox1.[color=#FF0000]Items[/color](a))
            End If
        Next