CodeGuru content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.
'****************************************************
'modFonts (Fonts.bas)
'
'Exported functions:
'
' InstallTTFont (ret.: 0: An error occured
' 1: Successful
' 2: Same or newer file exists
' 3: System must be rebooted)
' strSourcePath As String
' strFontFileName As String
' Optional bolShowError As Boolean
'
' ShutdownSystem
' eType As eShutDown
'****************************************************
'NOTE: If the return value of InstallTTFont equals 3,
' you should call ShutdownSystem(shtForceReboot)
' after your installation succeeded (ask user).
'****************************************************