Pasar datos de un Listbox a otro

[Pinty]

Hola RM13. Espero que esto te pueda ayudar

Código:

Protected Sub añadir_Click(ByVal sender As Object, ByVal e As EventArgs) Handles añadir.Click
        Try
            'añadimos al listbox2 el texto seleccionado en el listbox1
            ListBox2.Items.Add(ListBox1.SelectedItem.Text)

            'eliminamos el item del listbox1
            ListBox1.Items.Remove(ListBox1.SelectedItem)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

    Protected Sub quitar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles quitar.Click
        Try
            'añadimos al listbox1 el texto seleccionado en el listbox2
            ListBox1.Items.Add(ListBox2.SelectedItem.Text)

            'eliminamos el item del listbox2
            ListBox2.Items.Remove(ListBox2.SelectedItem)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

Un saludo y mucha suerte.

Pinty