Does anybody know how to adapt this Code to a "listview box"?



VB Code:
  1. Private Sub Text1_Change()

  2. Dim i As Integer

  3. For i = 0 To List1.ListCount - 1

  4.     If InStr(1, Left(List1.List(i), Len(Text1.Text)), Text1.Text, vbTextCompare) Then List1.Selected(i) = True: Exit For

  5. Next

  6.  
  7. End Sub