<DllImport(
"kernel32.dll"
, SetLastError:=True)> _
Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, _
ByVal lpBaseAddress As IntPtr, _
<Out()> ByVal lpBuffer() As Byte, _
ByVal dwSize As Integer, _
ByRef lpBytesRead As Integer) As Boolean
End Function
Dim buffer(3) As Byte()
ReadProcessMemory(hProcess, &H274A024, buffer, buffer.Length, bytesRead)