[Vb2005]Problemi con listbox

[x69asterix]

prova così:
TextBox2.Text = testo da cercare

Dim index As Integer
        index = ListBox1.FindString(LTrim(UCase(TextBox2.Text)))
        ListBox1.SelectedIndex = index
        ListBox1.Items.Remove(ListBox1.SelectedItem)
        ListBox1.Refresh(