Private Function ReadMemory(Address As Long) As Long
Dim buffer as string*500
buffer=space(500)
Dim ProcessID As Long, processHandle As Long
If tHvnd = 0 Then ReadMemory = "Error": Exit Function
GetWindowThreadProcessId tHvnd, ProcessID
processHandle = OpenProcess(&H10, False, ProcessID)
If processHandle = 0 Then ReadMemory = "Error": Exit Function
ReadProcessMemory processHandle, Address,buffer , 500, 0&
CloseHandle processHandle
ReadMemory=Buffer
End Function