Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long Const LB_FINDSTRING = &H18F Private Sub Form_Load() 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() List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text)) End Sub |