Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Function IncluirTTF(Fichero As String) As Boolean
    ' Incluye en el sistema un fichero TTF
    ' Parametros: Fichero ruta completa donde se encuentra el fichero origen
    Dim X As Long
    
    X = AddFontResource(Fichero)
        
    ' La función devuelve :
    ' True : Si todo fue correcto.
    ' False : Si hubo algún problema.
    IncluirTTF = IIf(X = 0, False, True)
End Function