Error using POINTAPI

[astrodestino]

Hi! I got a problem.
I am migrating an old vb6 app which get the desktop icons positions.
I have a problem here:

WriteProcessMemory(hProcess, lpSysShared, ptOriginal(0), dwSize, lWritten)

and in declarations:

Dim ptOriginal() As POINTAPI
Dim ptCurrent() As POINTAPI
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByRef lpBaseAddress As Object, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer



When I run my apps it returns this error:


Value of ptOriginal(0) cannot be converted to integer.

Can this be fixeD?
Thank you!