WITH ThisForm .GridPage1Refresh() .GridPage1Setup() .GridPage2Refresh() .GridPage2Setup() .GridPage3Refresh() .GridPage3Setup() .cntStatusBar.cntPanel4.SetText( DTOC(DATE()) ) ENDWITH