Bruce,

The Wingdings fonts have some decent up/down arrow characters. I use this code in the Init of my lblHeaderArrow class.

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

>I guess I have it easy, since our default header font is non-bold, so the active sort can be denoted bold...probably one of our few good & wise decisions from the agency GUI Style team I was inducted into, since it resolved the bickering over what color the active header should be < g >