[RESOLVED] ListView Find improvement needed

[seanwpb]

Im using the following code in a command button to type in a text box a the text i want to seach for in a certain column in my apps listview.

Dim X As Integer
    X = Len(Text2.Text)
    
    For i = 1 To ListView1.ListItems.Count
   
        If UCase(Left$(ListView1.ListItems.Item(i).SubItems(1), X)) = UCase(Text2.Text) Then
            ListView1.ListItems.Item(i).Selected = True
            ListView1.SetFocus
             Exit For
        End If
    Next

this works fine but i would like to have a way where the listview has focus and while i type is starts to find and move to the record with focus to that row. the above code also doesn't move to vertical scroll bar down, or up to the selected row.