Eventos en un Grid

Hola Fabián:

Te dejo un ejemplo:

DEFINE CLASS gridmascheck AS form

Top = -1
Left = 40
Height = 250
Width = 600
DoCreate = .T.
Caption = "Ejemplo grid con checkbox"
Name = "gridmascheck"

ADD OBJECT grdalumnos AS grid WITH ;
ColumnCount = 3, ;
Height = 200, ;
Left = 12, ;
Panel = 1, ;
RecordSource = "ALUMNOS", ;
RecordSourceType = 1, ;
Top = 12, ;
Width = 300, ;
Name = "grdAlumnos", ;
Column1.ControlSource = "ALUMNOS.idalum", ;
Column1.Name = "Column1", ;
Column2.ControlSource = "ALUMNOS.nombre", ;
Column2.Name = "Column2", ;
Column3.ControlSource = "ALUMNOS.nacio", ;
Column3.Name = "Column3", ;

ADD OBJECT gidmascheck.grdalumnos.column1.header1 AS header WITH ;
Caption = "idalum", ;
Name = "Header1"

ADD OBJECT gidmascheck.grdalumnos.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"

ADD OBJECT gidmascheck.grdalumnos.column2.header1 AS header WITH ;
Caption = "nombre", ;
Name = "Header1"

ADD OBJECT gidmascheck.grdalumnos.column2.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"

ADD OBJECT gidmascheck.grdalumnos.column3.header1 AS header WITH ;
Caption = "nacio", ;
Name = "Header1"

ADD OBJECT gidmascheck.grdalumnos.column3.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"

PROCEDURE grdalumnos.Refresh
* Código del refresh del grid
ENDPROC

PROCEDURE grdalumnos.Init
*Init del grid
ENDPROC

PROCEDURE header1.Click
* código del evento click
ENDPROC

ENDDEFINE

"Fabian" escribió en el mensaje
news:296ee01c46530$37b4d510$
Quizas mi pregunta es basica, pero aca esta
Estoy generando un grid en forma programatica y no
encuentro la forma de programar los eventos
Ej:
xcant = 2
With thisform.migrid1

.fontbold = .f.
.readonly = .f.
.columncount = xcant
.recordsource = xtabla
.allowaddnew = .f.
.deletemark = .f.
.scrollbars = 2
.width = 670
.readonly = .t.

with .column1
.controlsource="ccodigo"
.width = 70
with .header1
.caption = "Código"
.alignment=2 && centered

endwith
endwith
with .column2
.controlsource="descripcion"
.width = 70
with .header1
.caption = "descrip"
.alignment=2 && centered

endwith
endwith
endwith

quiero poder programar el evento click en el header de la
columna1

Como se puede hacer???

Gracias Fabian