*Assumed saved as CommonProcs.Prg define class myCommonProc as Custom procedure CheckValidation lparameters toObj lcControlsource = toObj.Controlsource *... endproc enddefine
* Base form class load this.oCommon = NewObject('myCommonProc','CommonProcs.prg') * A control's valid thisform.oCommon.CheckValidation(this)Cetin