XProfan

Def Setparent(2) !"USER32","SetParent"

Cls
Declare handle&, pid&
pid& = ShellExec("calc","open",1)
Sleep 500'warten bis das Fenster da ist, das Handle circa die PID zu ermitteln ist aufwendig, wäre aber sauberer
Handle&  = FindWindow("Rechner")
Def Setparent(2) !"USER32","SetParent"
Print Setparent(%hwnd, Handle&)

WhileNot iskey(27)

    sleep 10'ein Subclassing welches direkt auf die Fensterbewegung hört wäre eleganter
    SetWindowPos Handle& = %WinRight, %WinTop

EndWhile

WaitKey
End