Hola, he querido unirme al hilo de este tema porque el otro dia casualmente encontré este código que por su procedencia es de suponer que funciona:
Utilizar una fuente temporalmente
Código vb:
Ver originalDeclare Function AddFontResource& Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String)
Declare Function RemoveFontResource& Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String)
'Para instalarla (en el Load)
dim retvalue as long
retvalue = AddFontResource("tufuente.ttf")
'Para desinstalarla (en el Unload)
dim retvalue as long
retvalue = RemoveFontResource("tufuente.ttf")
Por si quereis indagar mas sobre APIS y lo desconoceis aquí os dejo el enlace
http://allapi.mentalis.org/agnet/apiguide.shtml