PROCEDURE frmViews_Resize(oform) >oform.p.Width=oform.Width >oform.p.Height=oform.height >Views_Editsize(oform.P.Page1.edit1) >FOR nPage=2 TO oform.p.PageCount >oPage=oform.p.Pages(nPage) >Views_Gridsize(oPage.Grid1) >ENDFOR >oform.p.Pages(oform.p.ActivePage).refresh >ENDPROC &&Views_Resize(oform) > >PROCEDURE Views_Gridsize(oGrid) >oGrid.width=oGrid.parent.parent.width >ogrid.height=ogrid.parent.parent.height-28 &&-ogrid.headerheight-SYSMETRIC(15) >ENDPROC &&Views_Gridsize(oGrid) > >PROCEDURE Views_Editsize(oEdit) >oEdit.width=oEdit.parent.parent.width >oEdit.height=oEdit.parent.parent.height-28 >ENDPROC &&Views_Editsize(oEdit)>HTH