>>>*--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 >>>