FOR EACH oColumn IN This.Columns FOR EACH oControl IN oColumn.Controls IF UPPER(oControl.BaseClass) = "TEXTBOX" BINDEVENT(oControl,"GotFocus",This.Parent.oEventHandler,"txtGridGroupsGotFocus") BINDEVENT(oControl,"LostFocus",This.Parent.oEventHandler,"txtGridGroupsLostFocus") ENDIF ENDFOR ENDFOR