DEFINE CLASS colCustom AS Column Name = "Colcustom" HeaderClass = "hdrSortGrid" HeaderClassLibrary = "GridMembers.prg" ENDDEFINE DEFINE CLASS hdrSortGrid AS Header Name = "hdrCustom" Caption = "" FontBold = .T. PROCEDURE Click This.Parent.Parent.SortGrid( This.Parent ) ENDPROC ENDDEFINEThen you specify colCustom as the memberClass of the grid and GridMembers.prg as its MemberClassLibrary.