XProfan

Declare class#,r&,hwin&
Def GetWindow(2) !"USER32","GetWindow"
Def GetClassName(3) !"USER32","GetClassNameA"
Dim class#,64

PROC SET_WIN_EXT_POS

    PARAMETERS Awtitel$,x&,y&,b&,h&
    GetClassName(%desktop,class#,64)
    Let r&=GetWindow(%desktop,5)

    While r& <> 0

        GetClassName(r&,class#,64)
        r&=GetWindow(r&,2)

        IF instr(Awtitel$,gettext$(r&)) > 0

            hwin&=r&
            setactivewindow(hwin&)
            SetWindowPos hWin& = x&, y& - b&, h&; 0
            showwindow(hwin&,1)

        ENDIF

    Wend

ENDPROC

SET_WIN_EXT_POS "Microsoft Word",10,10,800,600
Dispose class#