*--Form in this example is testform.scx MODIFY FORM testform NOWAIT ASELOBJ(laform, 1) loform = laform(1) *--See if controls are on a page on a pageframe named "pageframe" IF TYPE('loform.pageframe')<>"U" FOR EACH lopage IN loform.PAGEFRAME.PAGES FOR EACH ocontrol IN lopage.CONTROLS *--Change the height, width, and valid IF ALLTRIM(UPPER(ocontrol.BASECLASS)) = "TEXTBOX" ocontrol.HEIGHT = 25 ocontrol.WIDTH = 64 lc_addline = "*--Valid Method"+CHR(13) lc_value = ocontrol.READMETHOD('Valid') ocontrol.WRITEMETHOD('Valid',lc_addline+lc_value+CHR(13)) ENDIF ENDFOR ENDFOR ELSE && no pageframe all controls are on the single page FOR EACH ocontrol IN loform.CONTROLS *--Change the height, width, and valid IF ALLTRIM(UPPER(ocontrol.BASECLASS)) = "TEXTBOX" ocontrol.HEIGHT = 25 ocontrol.WIDTH = 64 lc_addline = "*--Valid Method"+CHR(13) lc_value = ocontrol.READMETHOD('Valid') ocontrol.WRITEMETHOD('Valid',lc_addline+lc_value+CHR(13)) ENDIF ENDFOR ENDIF RETURN