有关SendMessage!!!!!!!!!

Question

该为：
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, byval lParam As long) As Long试试！！！！！！

Answer 1

position = SendMessage(thelistboxhandle, LB_FINDSTRING, -1, tempstring)
应该改成:
position = SendMessage(thelistboxhandle, LB_FINDSTRING, -1, 
len(text1.text))

Answer 2

tempstring 好像没有定义！！！！！！
是不是应为：position = SendMessage(thelistboxhandle, LB_FINDSTRING, -1, temp)

Answer 3

position = SendMessage(thelistboxhandle, LB_FINDSTRING, -1, ByVal temp)
字符串必须ByVal