如何使用未安装的字体？

　　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:\myApp\myFont.ttf")
'删除字体：
Dim lResult As Long
lResult = RemoveFontResource("c:\myApp\myFont.ttf")