Dim strLst as String
 
Private Sub List1_KeyPress(KeyAscii As Integer)
   strLst = strLst & 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