Private Sub Text1_KeyPress(KeyAscii As Integer)
   strLst = strLst & LCase(Chr(KeyAscii))
   Dim n As Integer
   For n = 0 To List1.ListCount
     If LCase(Left(List1.List(n), Len(strLst))) = strLst Then
        List1.Selected(n) = True
     End If
   Next
End Sub