Нужно реализовать поиск в листбоксе по образцу поиска в виндовом help'е. - VB

Формулировка задачи:

Нужно реализовать поиск в листбоксе по образцу поиска в виндовом help'е. В смысле: я набираю в стоящем рядом Text1 значение, и при наборе каждого символа подсвечивается наиболее подходящий элемент листбокса. Какой код писать в Text1_Change? Желательно без использования API.

Решение задачи: «Нужно реализовать поиск в листбоксе по образцу поиска в виндовом help'е.»

textual
                            Листинг программы 
                        

                            Private Sub TextBox1_Change()
  Dim i As Integer
  If Len(TextBox1) > 0 And ListBox1.ListCount > 0 Then
    For i = 0 To ListBox1.ListCount - 1
      If Left(ListBox1.List(i), Len(TextBox1)) = TextBox1 Then
        ListBox1.ListIndex = i
        Exit For
      End If
    Next i
  End If
End Sub
                        