>This code works also, BUT I changed this class to based on GRID not on CGRID. Also I comment
>loSelect = createobject('CSelect', this.recordsource) in createtag because I don't know wnat object is this.
>
It worked even with grdSorting as a subclass of cGrid. So, we narrowed down the problem to cGridTextBox class. In my colleague form where it works I see:

ADD OBJECT selectgroup.cgrid1.column1.cgridtextbox1 AS cgridtextbox WITH ;
		FontSize = 8, ;
		ReadOnly = .T., ;
		SelectedForeColor = RGB(255,255,255), ;
		SelectedBackColor = RGB(0,0,255), ;
		Name = "Cgridtextbox1"

And in my code, where it doesn't work, I see:

ADD OBJECT frminvestigatorqueuemgt.grdqueuemgmt.column1.cgridtextbox1 AS cgridtextbox WITH ;
		FontSize = 8, ;
		ReadOnly = .T., ;
		Name = "Cgridtextbox1"

E.g. it looks like I have to set SelectedForeColor and SelectedBackColor properties in the class level.