Como eu posso fazer essa instalacao via programa VB?

 Presciso fazer o meu sistema instalar a fonte e nao o setup da instalacao.

 

Valeu

Basta que a fonte seja copiada para a pasta de fontes do windows e vua-lá!

Public Const WM_FONTCHANGE = &H1D
Public Const HWND_BROADCAST = &HFFFF&

Declare Function AddFontResource& Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String)

Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lparam As Long)

Public Sub AddFont(File As String)
    Call AddFontResource(File) ' This adds the font like arial.ttf
    Call SendMessageBynum(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ' This notifies all other programs of a font change
    MsgBox File & " added"
End Sub

''''''''''''''''como utilizar'''''''''''''''''''''''''''
'Private Sub Command1_Click()
'Call AddFont(App.Path & "FonteTal.ttf")

'End Sub