Well try this by using the window API
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
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1...