Ho scritto del codice che potrebbe esserti utile ... in realta' esistono delle API su cui ci si deve basare per aggiungere un font ...

Ovviamente dovrai inserire il percorso e il nome del file ttf da aggiungere ...

Private Const HWND_BROADCAST = &HFFFF&
Private Const WM_FONTCHANGE = &H1D
Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Click()
AddFont "C:\", "TuoFont.ttf" ' <--- Path e nome file font da aggiungere
End Sub

Private Sub AddFont(ByVal fontPath As String, ByVal fontFileName As String)
Dim fp As String

fp = Environ$("WINDIR") & "\Fonts"

FileCopy fontPath & "\" & fontFileName, fp & "\" & fontFileName
If AddFontResource(fp & "\" & fontFileName) > 0 Then
SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
End If
End Sub

Fammi sapere come va ...