Public Sub GetName()
        Dim Address As Integer, vBuffer As Long
        Dim myProcesses As Process() = Process.GetProcessesByName("Spiel")
        Dim processHandle = OpenProcess(PROCESS_ALL_ACCESS, 0, myProcesses( _
          0).Id)
        Address = 745974
        Dim ret As Byte() = Nothing
        For i As Integer = 0 To 8
            ReadProcessMemory(processHandle, Address + i, vBuffer, 4, 0)
            ret = BitConverter.GetBytes(vBuffer)
            CurrentName.Text &= System.Text.Encoding.Default.GetString(ret)
        Next
        CloseHandle(processHandle)
        Exit Sub
    End Sub