XProfan

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

Cls
Declare handle&, pid&
pid& = ShellExec("calc","open",1)
Sleep 500'Waiting To the window there's, the lever over The PID To detect is costly, would but sauberer
Handle&  = FindWindow("Rechner")
Def Setparent(2) !"USER32","SetParent"
Print Setparent(%hwnd, Handle&)

WhileNot iskey(27)

    sleep 10'one Subclassing which directly on The Fensterbewegung hears would eleganter
    SetWindowPos Handle& = %WinRight, %WinTop

EndWhile

WaitKey
End