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" endwithIt checks preferentially for Wingdings3 or drops back to Wingdings if it needs to.