Private Declare Function ReadProcessMemory Lib "kernel32" Alias _
      "ReadProcessMemory" _
(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As _
Integer, _
 ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess _
      As Long, ByVal blnheritHandle As Boolean, ByVal dwAppProcessId As IntPtr) _
      As IntPtr
    Public Declare Auto Function CloseHandle Lib "kernel32.dll" (ByVal hWnd As _
    IntPtr) As Boolean
 
    Public Function GetValue(ByVal Address As Long)
        Dim hproc As IntPtr
        Dim value As Long
 
        MsgBox(MainForm.Game_Process.Id)  'Die Prozess ID stimmt noch..
 
        hproc = OpenProcess(&H10, False, MainForm.Game_Process.Id)
        'inzwischen habe ich ein wenig gegoogelt und die rechte nach msdn auf 
        ' 'PROCESS_VM_READ' eingestellt.. 
 
        MsgBox(hproc)   'aber dir Rückgabe bleibt 0
 
        ReadProcessMemory(hproc, Address, value, 1, 4)
 
        Return value
 
    End Function