vfp 字体设置问题

Local oFont As StdFont                   
oFont = Createobject('StdFont')    
oFont.Name =Iif(Empty(页脚字体),"Verdana",页脚字体)
oFont.Size =Iif(页脚fontsize=0,9,页脚fontsize)   ——怎么oFont.Size 变成货币型？按说应该是数值型啊。