WriteProcessMemory 和 ReadProcessMemory
中的 lpBuffer As Any 应改为 ByVal lpBuffer As Any
VB6 的 API 查看器中写错了!