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