Declare zielfenster&,pointer#
 Declare Handle ZielFenster&
 declare b_send&,&,ende&,color&,wert&
 
 Struct Daten = w&
 dim pointer#,Daten
 
 Window 20,20-200,200
 windowtitle "send-bereich"
 
 color&=rgb(160,160,160)
 cls color&
 
 b_send& = Create("Button",%HWnd,"send", 10, 20, 80, 24)
 
 shell "empfang_bereich.exe"
 sleep 500
 zielfenster&=findwindow("empfangbereich")
 
 ende& = 1
 while ende&
     waitinput
     If Clicked(b_send&)
       pointer#.w& = 255123
       sendMessage(ZielFenster&,$004A,%HWnd,pointer#)
     endif
 endwhile
 end
 

 declare ende&,pointer#
 
 Struct Daten = w&
 dim pointer#,Daten
 
 ende&=1
 
 windowtitle "empfangbereich"
 Window 220,20-300,200
 
 UserMessages  $004A
 WHILE ende&
    waitinput
 
    If %UMessage = $004A
        pointer#= &UwParam
        print pointer#.w&
    endif
 ENDWHILE
 
 end