vb api流览器中的api函数的错误

错误函数如下：Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

上面的这两个函数一个是读内存一个是写内存，起初我以为代码错了可是我一点点查错最后把问题锁定在了这两个函数上面。
lpBaseAddress As Any 应为：lpBaseAddress As long(ReadProcessMemory).
lpBaseAddress As Any 应为：lpBaseAddress As long(WriteProcessMemory).
这是我试过的，遇到过此问题的朋友可以看一下，