John,

I use a label class that floats over the grid header. Here's the code from it's Init:

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

It checks preferentially for Wingdings3 or drops back to Wingdings if it needs to.

>Thanks I read the thread and I will have to just use ^ and FontBold to indicate that there is an order set for that column.