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