نصب فونت از طریق وی بی

[علی علیان]

با عرض سلام . من یک سوال در مورد اینکه چطور میتوان با وی بی برنامه ای نوشت که یکسری فونت را که ما برایش مشخص می کنیم در پوشه فونت ویندوز نصب کند . با تشکر .

[bachemosbat]

از طریق توابع Api می شه به این صورت:
Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Sub Command1_Click()
AddFontResource App.Path & "\nazanin.ttf"
End Sub