Search for a string in Listbox

Private Sub Form_Load()
  'KPD-Team 1998
  'URL: http://www.allapi.net/
  'E-Mail: KPDTeam@Allapi.net
  'Add some items to the listbox
  With List1
    .AddItem "Computer"
    .AddItem "Screen"
    .AddItem "Modem"
    .AddItem "Printer"
    .AddItem "Scanner"
    .AddItem "Sound Blaster"
    .AddItem "Keyboard"
    .AddItem "CD-Rom"
    .AddItem "Mouse"
  End With
End Sub
Private Sub Text1_Change()
  'Retrieve the item's listindex
  List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub