the poin is not that Boris, but the act that I cannot click the header but I think to remember that headers do not have click event in VFP7, do them ?

>>I have this class associated to a grid
>>
>>

>>DEFINE CLASS Ric_Col AS Column
>> 	backcolor = Rgb(192,192,192)
>> 	fontsize = 8
>>    ADD OBJECT 'header' AS Myheadric   && puoi utilizzare un Header personalizzato
>>    ADD OBJECT 'text' AS Txtgrdric   && puoi utilizzare un textBox personalizzato
>>  ENDDEFINE
>>
>>Define Class Myheadric as Header
>>	alignment = 2
>>	Ordine	     = .f.  && se vero l'ordine è impostato su questa colonna
>>	Procedure Click
>>		If !Empty(this.tag)
>>			For each oCol in this.Parent.parent.objects
>>				oCol.controls(1).NoOrder()
>>			EndFor 	
>>			this.OkOrder()
>>		EndIf 	
>>	EndProc
>>		
>>	Procedure OkOrder
>>		If !this.ordine
>>			this.ordine = .t.
>>			Set Order To (this.tag)
>>			this.Parent.parent.refresh()
>>			this.BackColor = RGB(255,0,0)
>>		EndIf
>>	EndProc
>>	
>>	Procedure init
>>		If Version(5) >= 900
>>			themes  = .f.
>>		EndIf 	
>>
>>	EndProc
>>	
>>	Procedure NoOrder
>>		this.ordine = .f.
>>		this.ResetToDefault('BackColor')
>>	EndProc
>>		
>>EndDefine 				
>>
>>

>>
>>The problem is that I expected something to happen when I click on a header,
>>but nothing happens while if I run it in VFP9 environment it does !
>>Where is the problem ? I tried to put the themes property setting in the init event to avoid the processing of properties belonging to the new version but I still have the problem.
>
>
>If there is no typo in your code, you just define a variable named themes in init event of the header class.
>

>Procedure init
>  If Version(5) >= 900
>     this.Parent.Parent.themes  = .f. && Set Grid Themes to .f.
>  EndIf
>EndProc
>