VB中利用API函数如何使用未安装的字体？

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")