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.