The needed CHR-Values :
Everything You need You can find :
=>>>>> http://www.lookuptables.com
http://www.asciitable.com
 #include "FiveWin.ch"
static oWnd
function Main()
local oBtn
Local oButtFont := TFont():New("Arial",0,-16,.F.,.T.,0,0,0,.F. )
DEFINE WINDOW oWnd TITLE "Testing ChooseFont"
@ 5, 15 BUTTON oBtn PROMPT "&Test : " + Â CHR(0191) + " , " + ;
   CHR(0241) + " , " + ;
   CHR(0209) + " , " + ;
   CHR(0250) + " , " + ;
   CHR(0243) + " , " + ;
   CHR(0237) + " , " + ;
   CHR(0225) + " , " + ;
   CHR(0233)  OF oWnd ;
ACTION ( oBtn:GetFont(),;
oBtn:SelFont(), MsgInfo( oBtn:oFont:lBold ) ) ; Â
SIZE 280, 50 FONT oButtFont
ACTIVATE WINDOW oWnd
oButtFont :End()
return nil
Best Regards
Uwe
