Add and Remove Fonts from the System

Version Compatibility: Visual Basic 5

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Declare Function AddFontResource Lib "gdi32" _ Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Private Declare Function RemoveFontResource Lib "gdi32" _ Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long