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