visual basic Pesquisar Itens na ListView

Public Class Form1

Dim S As New ArrayList

 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

S.Add(TextBox2.Text & " # " & TextBox3.Text & " # " & TextBox4.Text)

End Sub

 

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

ListView1.Items.Clear()

For Each H In S.ToArray

If H.StartsWith(TextBox1.Text.ToString().ToLower()) = True Then

Dim X As String() = Split(H, " # ")

Dim I As New ListViewItem

I.Text = X(0)

I.SubItems.Add(X(1))

I.SubItems.Add(X(2))

ListView1.Items.Add(I)

End If

Next

End Sub

End Class