Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
Private Sub Command1_Click() '增加字体 Dim lResult As Long lResult = AddFontResource("c:\myApp\myFont.ttf") End Sub Private Sub Command2_Click() '删除字体 Dim lResult As Long lResult = RemoveFontResource("c:\myApp\myFont.ttf") End Sub
