[RainBow]

جرب هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer

        i = ListBox1.SelectedItems.Count - 1

        Do While i >= 0
            ListBox2.Items.Add(ListBox1.SelectedItems.Item(i))
            ListBox1.Items.Remove(ListBox1.SelectedItems.Item(i))
            ListBox1.Items.Add(ListBox2.SelectedItems.Item(i))
            ListBox2.Items.Remove(ListBox2.SelectedItems.Item(i))
            i = i - 1

        Loop
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.SelectedIndex = 1
        ListBox2.SelectedIndex = 1
    End Sub