Чтение значения из памяти процесса на Windows 7

    Private Declare Function ReadProcessMemory Lib "kernel32" ( _
        ByVal hProcess As Integer, _
        ByVal lpBaseAddress As Integer, _
        ByRef lpBuffer As Integer, _
        ByVal nSize As Byte, _
        ByRef lpNumberOfBytesWritten As Integer _
    ) As Integer
    Function ReadVarMem(ByVal adress As Integer) As Integer
            Dim buff As Single
            ReadProcessMemory(proc(0).Handle, CType(adress, IntPtr), buff, 4, 0)
            Return buff
    End Function

Imports System.Runtime.InteropServices
 
Public Class Form1
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Private Shared Function ReadProcessMemory( _
        ByVal hProcess As IntPtr, _
        ByVal lpBaseAddress As IntPtr, _
        ByRef lpBuffer As Integer, _
        ByVal nSize As UIntPtr, _
        ByRef lpNumberOfBytesWritten As UIntPtr _
    ) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
 
    ''' <param name="hProcess">Дескриптор процесса.</param>
    ''' <param name="lpBaseAddress">Адрес для чтения.</param>
    ''' <param name="pValue">Буфер для чтения.</param>
    Private Function ReadInt32ProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef pValue As Integer) As Boolean
        Return ReadProcessMemory(hProcess, lpBaseAddress, pValue, 4, UIntPtr.Zero)
    End Function
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim ptr As IntPtr = &H309C6C1 'Какой-то адрес в калькуляторе
 
        Dim value As Integer
        If Not ReadInt32ProcessMemory(Process.GetProcessesByName("calc")(0).Handle, ptr, value) Then
            MessageBox.Show("Error " & Marshal.GetLastWin32Error())
        Else
            MessageBox.Show(value)
        End If
    End Sub
End Class