为何提示“编译错误：类型不匹配”

Question

Private Type POINTAPI
  x As Long
  y As Long
End Type
Private Type LV_FINDINFO
  flags As Long
  psz As String
  lParam As Long
  pt As POINTAPI
  vkDirection As Long
End TypeDim objfind As LV_FINDINFOobjfind.flags = LVFI_STRING
objfind.psz = "123"
'这句编译出错
result = sendmessage(TListBox1, LVM_FINDITEM, -1, objfind)
                                                  －－－－     

Answer 1

result = sendmessage(TListBox1, LVM_FINDITEM, -1, objfind)
改为
result = sendmessage(TListBox1, LVM_FINDITEM, -1, VarPtr（objfind))
后运行程序死掉修正一下，这里变量Tlistbox1实为listview

Answer 2

result = sendmessage(TListBox1.hWnd, LVM_FINDITEM, -1, objfind)看看