Prueba con este código al final del todo:
Code: Select all | Expand
@ 3, 3 ADD BUTTON oBtn PROMPT "new" GROUP oGrp ;
ACTION oRBar:End() SIZE 60, 63 TOP
oWnd:Resize( 0, oWnd:nWidth, oWnd:nHeight )
return nil
dime si varia en algo el comportamiento que describes