例:Text1的字体属性:
Text1.FontName = "楷体" '字体名称
Text1.FontSize = 32 '字号
Text1.FontUnderline = True '下划线
Text1.FontBold = True '粗体
Text1.FontStrikethru = True '删除线
Text1.FontItalic = True '斜体
Text1.ForeColor = 456 '颜色