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