[CODE]Private Sub 标准字体_Click()
Cls
Me.Font.Size = 24
Me.Font.Bold = False
Me.Font.Underline = False
Me.Print "标准字体"
End Sub
Private Sub 加粗_Click()
Cls
Me.Font.Size = 24
Me.Font.Bold = True
Me.Font.Underline = False
Me.Print "加粗"
End Sub
Private Sub 加下划线_Click()
Cls
Me.Font.Size = 24
Me.Font.Bold = False
Me.Font.Underline = True
Me.Print "加下划线"
End Sub[/CODE]