*** Column class for grdList DEFINE CLASS colCustom AS Column Name = "Colcustom" HeaderClass = "hdrSortGrid" HeaderClassLibrary = "GridMembers.prg" ADD OBJECT Text1 as txtgrid ENDDEFINE DEFINE CLASS txtGrid AS TextBox Name = "txtGrid" BorderStyle = 0 SpecialEffect = 2 Margin = 0 ENDDEFINE DEFINE CLASS hdrSortGrid AS Header Name = "hdrCustom" Caption = "" FontBold = .T. PROCEDURE Click This.Parent.Parent.SortGrid( This.Parent ) ENDPROC ENDDEFINE