Module Module1
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
      lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, _
    ByVal lpdwProcessId As Long) As Long
    Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" ( _
    ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, _
    ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
    Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, _
    ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, _
    ByVal lpNumberOfBytesWritten As Long) As Long
    Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _
      Integer
    Declare Function Hotkey Lib "user32" Alias "GetAsyncKeyState" (ByVal key As _
    Long) As Integer
 
 
    Public Function Gold(ByVal Address As Long, ByVal offsetvalue As Long)
 
        Dim handle As Long
        Dim processID As Long
        Dim ProcessHandle As Long
        Dim PointerValue As Long
        Dim AddressDec As Long
        Dim AddressHex As String
 
 
        handle = FindWindow(vbNullString, "Name Des Fensters")
        GetWindowThreadProcessId(handle, processID)
        ProcessHandle = OpenProcess(&H1F0FFF, True, processID)
        ReadProcessMem(ProcessHandle, Address, PointerValue, 1, 0)
        AddressDec = PointerValue + offsetvalue
        AddressHex = Hex(AddressDec)
        Form1.Label1.Text = AddressHex
        CloseHandle(ProcessHandle)
 
    End Function
End Module

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Call Gold(&H106D301, &H0)
    End Sub
End Class