win32api and readprocessmemory problem.. sojo, james, tracer? HELP!

Const MAX_PATH = 264 
Const TH32CS_SNAPHEAPLIST = $1 
Const TH32CS_SNAPPROCESS = $2 
Const TH32CS_SNAPTHREAD = $4 
Const TH32CS_SNAPMODULE = $8 
Const TH32CS_SNAPALL = TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE 
Const TH32CS_INHERIT = $80000000 
Const INVALID_HANDLE_VALUE = -1 
Const SizeOf_PE32 = 296 
Const STANDARD_RIGHTS_REQUIRED = $F0000 
Const SYNCHRONIZE = $100000 
Const PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or $FFF) 

snap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0) 

If snap 
	Proc32 = CreateBank(SizeOf_PE32) 
	PokeInt(Proc32,0,BankSize(Proc32))

	If Process32First(snap,Proc32)
		While Process32Next(snap,Proc32)
			dwSize              = PeekInt(Proc32,0) 
			cntUsage            = PeekInt(Proc32,4) 
			th32ProcessID       = PeekInt(Proc32,8) 
			th32DefaultHeapID   = PeekInt(Proc32,12) 
			th32ModuleID        = PeekInt(Proc32,16) 
			cntThreads          = PeekInt(Proc32,20) 
			th32ParentProcessID = PeekInt(Proc32,24) 
			pcPriClassBase      = PeekInt(Proc32,28) 
			dwFlags             = PeekInt(Proc32,32) 

			offset = 36 
			
			Repeat 
				char = PeekByte(Proc32,offset) 
				offset = offset + 1 
				szExeFile$ = szExeFile$ + Chr$(char) 
			Until char = 0 
			
			szExeFile$ = Left$(szExeFile$,Len(szExeFile$) - 1) 
			
			If szExeFile$ = "trainme.exe"
				program = th32ProcessID
			EndIf
			
			szExeFile$="" 
		Wend 
	EndIf 
	CloseHandle (snap) 
EndIf 

; Open Process with full access
app = OpenProcess(PROCESS_ALL_ACCESS,x,program)

; Create a little bank
buffer = CreateBank(10)

; To READ from memory.. not used in this case, but the below works.
;result = ReadProcessMemory(app,4207112,buffer,2,x)


; Train Me has the command for decreasing the number in the window
; at address 401429 in hex, to make it easy, we'll use dec to
; do our process writing, which is 4199465.

; *NOTE*
; The Hex down below is what it showed when _I_ ran Train Me
; It doesn't mean that it will be that on your computer!
; Keep in mind, CODE is static in memory, DATA is _NOT_

; The address contains the following:
; 89 1D 08 32 40 00
; The address where the value is held is: 403208
; 08 32 40, seem em above? reverse em.. 403208  HEY! whaddaya know :)
; So, ReadProcessMemory CAN be used to find the amount in memory
; even if it changes address! (mind you, in my little Train Me, it's very
; straightforward, it make be VERY different in games.

; So, what to do to stop it from decreasing (but, we want to make sure
; it CAN increase!)

; 4199465 is the address of the command that decreases the number.. so,
; all we have to do is NOP (No OPeration) it out. The command is six
; bytes in length, so we need to put six NOP's in it's place.

PokeByte buffer,0,144 ; <- 144 dec = 90 hex = NOP
PokeByte buffer,1,144 ; <- 144 dec = 90 hex = NOP
PokeByte buffer,2,144 ; <- 144 dec = 90 hex = NOP
PokeByte buffer,3,144 ; <- 144 dec = 90 hex = NOP
PokeByte buffer,4,144 ; <- 144 dec = 90 hex = NOP
PokeByte buffer,5,144 ; <- 144 dec = 90 hex = NOP

; We poked 6 bytes into the bank, each a 144, which is 90 (NOP) in hex.

; Now we write the six bytes to Train Me's memory and remove the
; decreasing command.
result = WriteProcessMemory(app,4199465,buffer,6,x)

; Now try to use the "dwn" button! :)
; Note how the up button still works!, this is because we only removed
; the code that decreases the number!

win = OpenWindow(1,10,10,132,50,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered,"Train Me")
If CreateGadgetList(WindowID(1))
  ButtonGadget(1,10,10,24,24,"Up")
  TextGadget(2,60,15,40,24,"0")
  ButtonGadget(3,100,10,24,24,"Dn")
EndIf

num = 0
SetGadgetText(2,Str(num))
Repeat
  EventID.l = WaitWindowEvent()

  If EventID = #PB_EventGadget

      Select EventGadgetID()
        Case 1
          num = num + 1
          
          If num > 200
            num = 200
          EndIf
          
          SetGadgetText(2,Str(num))

        Case 3
          num = num - 1
          
          If num < 0
            num = 0
          EndIf
          
          SetGadgetText(2,Str(num))
          
      EndSelect
  EndIf
  
  If EventID = #PB_Event_CloseWindow  ; If the user has pressed on the close button
    Quit = 1
  EndIf

Until Quit = 1

.lib "kernel32.dll"

CreateToolhelp32Snapshot% (flags, th32processid)
Process32First% (snapshot, entry*)
Process32Next% (snapshot, entry*)
CloseHandle% (object)
OpenProcess% (dwDesiredAccess%, bInheritHandle%, dwProcessId%) : "OpenProcess"
ReadProcessMemory% (hProcess%, lpBaseAddress%, lpBuffer*, nSize%, lpNumberOfBytesRead%)
WriteProcessMemory% (hProcess%, lpBaseAddress%, lpBuffer*, nSize%, lpNumberOfBytesWritten%)