>*--Check all objects on pages on any pageframe as well >loForm = THISFORM >FOR EACH oObject IN loForm.Objects > IF ALLTRIM(UPPER(oObject.BASECLASS))="PAGEFRAME" && step through the pageframe > FOR EACH loPage IN oObject.PAGES > FOR EACH oControl IN loPage.CONTROLS > IF ALLTRIM(UPPER(oControl.BASECLASS)) = "TEXTBOX" > wait WINDOW oControl.Name+" value: "+ oControl.value > ENDIF > IF LOWER(oControl.Name) = "myobject" > Wait WINDOW "PageFrame Page " + loPage.Name + " Value is: " + oControl.Value > ENDIF > ENDFOR > ENDFOR > ELSE > IF ALLTRIM(UPPER(oObject.BASECLASS))="TEXTBOX" > IF PEMSTATUS(oObject,'Format',5) > wait WINDOW "Form Object "+oObject.Name + [ has the Format Property] > ENDIF > ENDIF > ENDIF >ENDFOR >