Public Function InstallFont(ByVal FileName As String) As Boolean
InstallFont = AddFontResource(FileName) <> 0
End Function
Public Function UninstallFont(ByVal FileName As String) As _
Boolean
UninstallFont = RemoveFontResource(FileName) <> 0
End Function