RETO 3 - PRODUCTOS (diseño y código)

Public Class Form1

    Private Sub btnagregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnagregar.Click

        lstagregados.Items.Add(txtproducto.Text)

        txtproducto.Focus()

        txtproducto.SelectAll()

    End Sub

    Private Sub btnpasar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpasar.Click

        lstpasados.Items.Add(lstagregados.SelectedItem)

        lstagregados.Items.RemoveAt(lstagregados.SelectedIndex)

    End Sub

    Private Sub btnquitar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquitar.Click

        lstagregados.Items.RemoveAt(lstagregados.SelectedIndex)

    End Sub

    Private Sub btnquitartodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquitartodo.Click

        lstagregados.Items.Clear()

        lstpasados.Items.Clear()

    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click

        End

    End Sub

End Class