Declare Function AddFontResource& Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) Declare Function RemoveFontResource& Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) 'to install dim retvalue as long retvalue = AddFontResource("harquil.ttf") 'to uninstall dim retvalue as long retvalue = RemoveFontResource("harquil.ttf") Tip submitted by Fabrizio Ranieri