THANKS TO ALL THAT HELPED!

The code that did it:

MODIFY FORM \profiler32\progs\forms32\scendo NOWAIT
aselobj(laForm, 1)
loForm = laForm(1)
for each loPage in loform.PageFrame.Pages
   FOR EACH oControl IN loPage.COntrols
      IF UPPER(LEFT(ocontrol.name,3))="TXT"
         LcDesiredCode = "THISFORM.mcalendorse=.T." + CHR(13) ;
         + oControl.ReadMethod("VALID")
         oControl.WriteMethod("VALID", LcDesiredCode)
      ENDIF
   ENDFOR
ENDFOR
RETURN

>

for each loPage in loForm.PageFrameName.Pages
>    FOR EACH oControl IN loPage.COntrols

>
>>working on it. the problem I am running into is that the form has a pageframe with 6 pages on it...
>>
>>>Run your code below from a PRG file. You need to account for the container classes that your texboxes are on in the modified code below.
>>>
>>>>That's what I'm currently working on, but for some reason after I do a dodefault in the init of the form, my labojects array does not get created using the code below:
>>>
>>>

>>>MODIFY FORM MyForm NOWAIT
>>>aselobj(laForm, 1)
>>>loForm = laForm(1)
>>>WITH THIS
>>>    FOR EACH oControl IN loForm
>>>        * test to see of baseclass is a textbox here. if not, loop
>>>		LcDesiredCode = "THISFORM.mcalendorse=.T." + CHR(13) ;
>>>		+ oControl.ReadMethod("VALID")
>>>		oControl.WriteMethod("VALID", LcDesiredCode)
>>>    ENDFOR
>>>ENDWITH
>>>