'Declaration
Public Function New( _
ByVal As String, _
ByVal As Double, _
ByVal As FontStyle, _
ByVal As Color, _
Optional ByVal As UnderlineStyle, _
Optional ByVal As VerticalTextAlignment, _
Optional ByVal As ThemeFont _
)
'使用法
Dim name As String
Dim size As Double
Dim fontStyle As FontStyle
Dim color As Color
Dim underline As UnderlineStyle
Dim verTextAlign As VerticalTextAlignment
Dim themeFont As ThemeFont
Dim instance As New Font(name, size, fontStyle, color, underline, verTextAlign, themeFont)