How to search a listbox using the API...

Public Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As String) As Long

Public Const LB_FINDSTRING = &H18F
Public Const LB_FINDSTRINGEXACT = &H1A2


'To demo, add a textbox and listbox to a form. In the form load sub, add
this code to load a list with some (15) of the system's screen fonts.

Private Sub Form_Load()

Dim i As Integer, max As Integer

max = Screen.FontCount
If max > 15 Then max = 15

For i = 1 To max
    List1.AddItem Screen.Fonts(i)
Next

End Sub


'Add the following to the textbox _Change sub

Private Sub Text1_Change()

On Error Resume Next

List1.ListIndex = SendMessageStr(List1.hwnd, LB_FINDSTRING, 0&, (Text1))


End Sub