Me l'ho immaginavo..è un modulo per ricerca a gradi e che può anche distinguere 2 parole che si differenziano per qualche carattere maiuscolo..
Cmq ti scrivo una funzione più semplice:
codice:
Const LB_FINDSTRING = &H18F
Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub
provalo e fammi sapere..

ciao