I see what your code does. But when this is executed, error pops up "source is out of date" and "laform.prg does not exist"
>Here is how I do it:
>

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