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#