Programa Agrega de un texBox a una listbox

Public Class Form1

    Private Sub añadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles añadir.Click

        Dim strtexto As String

        strtexto = Txtlista.Text

        ListBox1.Items.Add(strtexto)

        Txtlista.Clear()

    End Sub

    Private Sub eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eliminar.Click

      

  ListBox1.Items.Remove(ListBox1.SelectedItem)

    End Sub

Programa hecho en visual   studio

Lenguaje: .net

fecha:20/05/2009