VB.NET Windows Form - Ejercicio con List Box

Realizar un programa que haga:
o  Que vaya insertando los elementos que escribimos en la caja de
texto bajo el label “Añadir:” dentro de un Listbox, cada vez que
se presione el botón Añadir.

o  Cuando insertemos un elemento debe limpiar el cuadro de texto.

o  Cuando seleccionemos un elemento del Listbox debe aparecer
en el cuadro de texto bajo el label "Seleccionado ahora".

o  Poner tres botones, uno para Eliminar el elemento seleccionado,
uno para Eliminar todos y otro para Terminar el programa.

o  Asociar iconos a los botones, que sean contextuales a la acción
que realizan.

o  La  ventana  debe  llevar  por  título  “Aplicación  con  Listbox”  y
debe tener un icono asociado.


Imagen:

Código:

Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        'Esto hace que el elemento del ListBox aparezca en el TextBox2
        TextBox2.Text = ListBox1.SelectedItem
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Esto hace que los elementos de TextBox1 vayan al ListBox
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Esto borra el elemento seleccionado
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Esto borra todos los elementos del ListBox
        ListBox1.Items.Clear()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Application.Exit()
    End Sub
End Class


==> DESCARGAR <==