How to Add/Remove new Font

Home » Fonts » How to Add/Remove new Font

Posted on January 5, 2009

'Fonts - How to Add/Remove new Font

Declare Function AddFontResource& Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String)
Declare Function RemoveFontResource& Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String)
 
Private Sub Command1_Click()
    Call RemoveFontResource("C:\Temp\Carolina.ttf")
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "Remove"
    retvalue = AddFontResource("C:\Temp\Carolina.ttf")
    Command1.FontName = "Carolina"
End Sub