如何使用未安装的字体？



'声明:
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" _
　(ByVal lpFileName As String) As Long
Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" _
　(ByVal lpFileName As String) As Long

'代码:

'增加字体：
Dim lResult As Long
lResult = AddFontResource("c:myAppmyFont.ttf")
'删除字体：
Dim lResult As Long
lResult = RemoveFontResource("c:myAppmyFont.ttf")