This is what I have in out custom class HeaderClick method

local loCalledBy && as Object

aevents[aCurEvent,0]
loCalledBy = aCurEvent[1] && should be a Header object

if vartype(m.loCalledBy)= "O" and not empty(m.loCalledBy.parent.cOriginalControlSource)
	local lcOrder, lcRecSource, llDirection
	lcRecSource = this.recordsource
	llDirection = this.lAscending

>thank you this's what I want to...