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
 
'Schriftart hinzufügen
Public Sub AddFont(ByVal sFontFile As String)
    Dim lResult As Long
    lResult = AddFontResource(sFontFile) 'z.B: "C:/Test.ttf"
End Sub
 
'Schriftart entfernen
Public Sub RemoveFont(ByVal sFontFile As String)
    Dim lResult As Long
    lResult = RemoveFontResource(sFontFile) 'z.B: "C:/Test.ttf"
End Sub

gez. Semminator