Hola, tengo un problema, espero esta vez puedan darme una mano.
Estoy migrando una vieja app que me guardaba la posicion de los iconos del escritorio y tengo un problema aca:
WriteProcessMemory(hProcess, lpSysShared, ptOriginal(0), dwSize, lWritten)
en las declaraciones:
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
Cuando ejecuto me tira el siguiente error:
Valor ptOriginal(0) POINTAPI no puede ser convertido a Integer
El cint no sirve de nada, no hace nada.
Saben como arregar esto?