Как воткнуть сюда Click() для объекта Header?

DEFINE CLASS MyGrid AS GRID && Create Grid

LEFT = 20 && Command button column
TOP = 20 && Command button row
HEIGHT = 300 && Command button height
WIDTH = 350
COLUMNCOUNT = 2
VISIBLE = .T.
RECORDMARK = .T.
DELETEMARK = .F.

PROCEDURE INIT
WITH THIS
.READONLY = .T.
.Column1.ALIGNMENT = 0
.Column2.ALIGNMENT = 0
.Column1.WIDTH = 150
.Column2.WIDTH = 50
.COLUMNS(1).Header1.CAPTION = "Name"
.COLUMNS(2).Header1.CAPTION = "Cod"
.COLUMNS(1).Header1.FONTBOLD = .T.
.COLUMNS(2).Header1.FONTBOLD = .T.
ENDWITH
ENDPROC

PROCEDURE AFTERROWCOLCHANGE
LPARAMETERS nColIndex
THISFORM.nRecno = RECNO()
THIS.SETALL("DynamicBackColor", ;
"IIF(RECNO() = ThisForm.nRecno, RGB(230,220,210),RGB(255,255,255))", "Column")
THIS.SETALL("DynamicFontBold", ;
"IIF(RECNO() = ThisForm.nRecno,.T.,.F.)", "Column")
THIS.REFRESH
ENDPROC

ENDDEFINE

Очень ценное предложение, но я как раз хотел сойти с этого гибельного пути, только программный путь дает хоть какую-то надежду, что программа будет работать как я хочу, а не как объекты решат.
Может кто-то знает как воткнуть метод в заголовок столбца?

ВладимируМ - посмотрел, все отлично получилось, более того, свойство
ColumnCount у меня работает без проблем, так как я все подключения сделал в классе Грида
Уф, полет нормальный (пока)...!
Кстати, сделать визуальный класс и подсмотреть код - абсурдизм, там все не так, применить практически невозможно.
Всем моя благодарность (в границах разумного).