>Create another thread :)
I will! :)


Thanks, Sergey.

After a few errors it started to work

DEFINE CLASS TrapResize AS Custom
oScreen = _Screen

PROCEDURE oScreen.Resize 
&& had to change <b>oScreen.oWallPaper.TakePlace() </b> for
  _SCREEN.oWallPaper.TakePlace() 
    	
ENDPROC
	  
ENDDEFINE

Thanks again.

Alonso