مشكلة فى البحث داخل Listview

وعليكــم السـلام ورحمة الله وبركاتـه..

جرب هذا الكود

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		If TextBox1.Text = "" Then
			Return
		End If

		Dim item As ListViewItem

		Dim selIndex As Integer = -1
		If Me.ListView1.SelectedIndices.Count > 0 Then
			selIndex = Me.ListView1.SelectedIndices(0)
		End If

		For i As Integer = selIndex + 1 To Me.ListView1.Items.Count - 1
			item = Me.ListView1.Items(i)
			For Each si As ListViewItem.ListViewSubItem In item.SubItems
				If si.Text.ToLower Like "*" & TextBox1.Text.ToLower & "*" Then
					item.Selected = True
					Me.ListView1.Select()
					Return
				End If
			Next
		Next

		MsgBox("No Results", MsgBoxStyle.Exclamation)
	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Me.ListView1.MultiSelect = False
		Me.ListView1.HideSelection = False
	End Sub
End Class

شكراً لك اخي الكريم

جزاك الله خيرا

الكود يعمل كما كنت اريد اشكرك كثيرا