Conduce Chile

Chicos, la otra vez olvidé agradecer la ayudita que me dieron con el tema de SQL.  


Ahora vuelvo a recurrir a uds. para ver si me ayudan con un dramón que tengo con Visual Studio.



En la imagen anterior pueden apreciar que tengo un textbox, en donde ingreso un dato y al presionar AGREGAR, lo ingresa en la LISTAUNO, lista en la que puedo almacenar varios datos.

El punto es que debo pasar datos de la LISTAUNO a la LISTA2, para ello selecciono los datos deseados con ctrl + click y presiono >, aquí se presenta mi error, porque no me tira los datos a la otra lista, solo me agrega a la LISTA2 el primer dato seleccionado.
El código que estoy utilizando es:

Private Sub btnder1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnizq1.Click
        lstlista2.Items.Add(lstlistauno.SelectedItem)
        lstlistauno.Items.Remove(lstlistauno.SelectedItem)
    End Sub

Hola, gracias. Hablo de listbox.


Public Class frmlista
    Inherits System.Windows.Forms.Form

    Private Sub frmlistbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub btnagregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnagregar.Click
        lstlistauno.Items.Add(txtagrega.Text)
        txtagrega.Clear()
        txtagrega.Focus()
    End Sub

    Private Sub btnder1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnder1.Click
        For Each item In lstlistauno.SelectedItem
            lstlista2.Items.Add(item)
        Next

    End Sub

    Private Sub btnizq1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnizq1.Click
        lstlistauno.Items.Add(lstlista2.SelectedItem)
        lstlista2.Items.Remove(lstlista2.SelectedItem)
    End Sub

    Private Sub btndermucho_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndermucho.Click
        For Each item In lstlistauno.Items
            lstlista2.Items.Add(item)
        Next
        lstlistauno.Item.Clear()
    End Sub

    Private Sub btnizqmucho_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnizqmucho.Click
        For Each item In lstlista2.Items
            lstlistauno.Items.Add(item)
        Next
        lstlista2.Items.Clear()
    End Sub

    Private Sub btndelall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelall.Click
        lstlistauno.Items.Clear()
        lstlista2.Items.Clear()
        txtagrega.Clear()
        txtmodifica.Clear()
        txtagrega.Focus()
    End Sub

    Private Sub txtmodifica_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtmodifica.TextChanged

    End Sub

    Private Sub btneditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneditar.Click

    End Sub

    Private Sub btndel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndel1.Click
        lstlistauno.Items.Remove(lstlistauno.SelectedItem)
        lstlista2.Items.Remove(lstlista2.SelectedItem)

    End Sub
End Class

Hola
cual es la linea especifica que te da error?
si entiendo bien el error es que no te agrega los datos de la lista 1 a la lista 2?

Chicos, la otra vez olvidé agradecer la ayudita que me dieron con el tema de SQL.  


Ahora vuelvo a recurrir a uds. para ver si me ayudan con un dramón que tengo con Visual Studio.



En la imagen anterior pueden apreciar que tengo un textbox, en donde ingreso un dato y al presionar AGREGAR, lo ingresa en la LISTAUNO, lista en la que puedo almacenar varios datos.

El punto es que debo pasar datos de la LISTAUNO a la LISTA2, para ello selecciono los datos deseados con ctrl + click y presiono >, aquí se presenta mi error, porque no me tira los datos a la otra lista, solo me agrega a la LISTA2 el primer dato seleccionado.
El código que estoy utilizando es:

Private Sub btnder1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnizq1.Click
        lstlista2.Items.Add(lstlistauno.SelectedItem)
        lstlistauno.Items.Remove(lstlistauno.SelectedItem)
    End Sub

ya entendi el problema es solo cuando seleccionas mas de 1
Hola Creo que el problema es         lstlista2.Items.Add(lstlistauno.SelectedItem)
por eso te agrega solo el primero por que falta recorrerlo
pruebalo con esto lo hice y me funiono

ojalas te funcione

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each item In ListBox1.SelectedItems
            ListBox2.Items.Add(item)
        Next
    End Sub

y para borrar los seleccionados, lo otro hice el codigo que me diste y me funca pero tengo problemas con el primer boton que es >, ya que no cumple la función

y al final te resulto o todavia estas con problemas????