Hi Marcia and Ali,

Marcia's way can't let you customize your grid at design time. write that class as .prg file and add your grid as memberclass:

Note:This is my own class. You should make some changes to adopt for your grid...

*-------------- column class --------------
DEFINE CLASS _column as Column
  headerclasslibrary="column.prg"
  headerclass="_header"
  xorder=""
  ADD OBJECT _textbox as _textbox
  currentcontrol="_textbox"
  sparse=.t.


PROCEDURE Init

ENDPROC

PROCEDURE Destroy

ENDPROC

PROCEDURE Error(nError, cMethod, nLine)

ENDPROC

ENDDEFINE

*-------------- header class --------------
DEFINE CLASS _header as Header 
   alignment=2
PROCEDURE Init

ENDPROC

PROCEDURE Destroy

ENDPROC

PROCEDURE Error(nError, cMethod, nLine)

ENDPROC

PROCEDURE click 
   IF EMPTY(this.Parent.xorder)
     RETURN
   ENDIF 
      SELECT (this.Parent.parent.recordsource)
LOCAL xascmi
  xascmi=UPPER(this.Picture)='pic\_SORTASC.BMP'
        this.Parent.parent.setall("Picture","")
IF ORDER()=UPPER(this.Parent.xorder)
   IF m.xascmi
        this.Picture='pic\_SORTDES.BMP'
        SET ORDER TO (this.Parent.xorder) DESCENDING 
   ELSE
        this.Picture='pic\_SORTASC.BMP'
        SET ORDER TO (this.Parent.xorder) ASCENDING 
   ENDIF 
   
ELSE   
        SET ORDER TO (this.Parent.xorder) ASCENDING 
        this.Picture='pic\_SORTASC.BMP'
ENDIF         
        this.Parent.parent.refresh 
ENDPROC   

ENDDEFINE