* Init Method lparameter pcGridName local laFonts[1] afont( laFonts ) with this if ( ascan( laFonts, "Wingdings 3" ) > 0 ) .FontName = "wingdings 3" .mcUp = 'p' .mcDown = 'q' else .FontName = "wingdings" .mcUp = chr(225) .mcDown = chr(226) endif .FontBold = .t. .ForeColor = ColorFactor( this.parent.BackColor, 0.5 ) .Caption = "" .mcGridName = pcGridName .MousePointer = 99 .MouseIcon = "down.cur" endwith endproc * SetPosition Method local loGrid, loCol loGrid = eval( this.mcGridName ) for each loCol in loGrid.Columns if ( loCol.Name == this.mcColumnName ) with this .Caption = iif( loCol.Header1.mlAscending, .mcUp, .mcDown ) .Top = objtoclient( loCol.Header1, 1 ) + 2 .Left = objtoclient( loCol.Header1, 2 ) + objtoclient( loCol.Header1, 3 ) - .Width .Visible = .t. endwith exit endif endfor>I want to give my users the ability to sort their grids by any column, ascending or descending. Is there a way to get an indicator (arrow, etc.) to appear next to the caption of the sorted column and show whether it's asc or desc?