API 函數：
Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Const LB_FINDSTRINGEXACT = &H1A2 '在 ListBox 中精確查找
Private Const CB_FINDSTRINGEXACT = &H158 '在 ComboBox 中精確查找
Private Const LB_FINDSTRING = &H18F '在 ListBox 中模糊查找
Private Const CB_FINDSTRING = &H14C '在 ComboBox 中模糊查找
調用方法：
n = SendMessagebyString(List1.hWnd, LB_FINDSTRING, -1, SearchText)
If n = -1 Then
Msgbox "Not Found!"
Else
MsgBox List1.List(n)
End If
