Public Declare Function ReadProcessMemory Lib "kernel32" ( _
        ByVal hProcess As IntPtr, _
        ByVal lpBaseAddress As Integer, _
        ByRef lpBuffer As Byte, _
        ByVal nSize As Integer, _
        ByRef lpNumberOfBytesRead As Integer _
        ) As Integer
 
        ' ....
 
        Dim data(31) As Byte
        Dim lr As Integer
        ReadProcessMemory(Process.GetCurrentProcess().Handle, 4000000, data(0), _
          32, lr)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist