VB 2005 - Filter List Box

[Danger Phoenix]

I have a list box populated with data from a directory listing (file names), and now I want to add a search box that will filter this list after every typed letter.

Does anyone know how to do this?

 

[Danger Phoenix]

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text.Trim.Length > 0 Then
            ListBox1.SelectedIndex = ListBox1.Items.IndexOf(TextBox1.Text.Trim.ToUpper)
        Else
            ListBox1.SelectedIndex = -1
        End If
End Sub

I just tried that and it does nothing