vb.net中使用32位dll中structure参数的问题。

[milaoshu1020]

用的是win10x64系统。
开发环境是vs2017 vb.net wpf。

我想问的是以下调用方式会出现堆栈不平衡，怎么办？
因为参数是直接使用的structure，怀疑调用的时候参数中传递的地址是64位的，
所以造成堆栈问题，如果是这样的话，请问这个问题应该怎么解决？
如果不是这样，请问是哪里的问题，应该如何解决？

结构体声明：
Private Structure POINTAPI
Public x As Integer
Public y As Integer
End Structure

dll函数声明：
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Integer

调用dll函数：
Dim Pt As POINTAPI
GetCursorPos(Pt)

[milaoshu1020]

而且返回的数据也不正确。

[milaoshu1020]

找到错误原因了，原来是 Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Integer 应该写成 Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Integer 也就是增加一个ByRef参数。 结帖。