>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
>

That's a good idea - in fact, my system partner and I revisited the column sort denotation after yesterday's thread. Unfortunately, though, we found we had far too many headers that the text was squeezed & abbreviated so tightly already, that we couldn't add even one char without seriously impacting the current header's readability. Will plan to revisit this when vfp7 comes out with wordwrap headers, though...