Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
If G_App.AddFontSource Then
On Error Resume Next
l_success = AddFontResource("acohs___.ttf")
If l_success = 0 Then
MsgBox "Font installation failed.", vbCritical
Else
l_success = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
End If
End If
On Error Resume Next
If G_App.AddFontSource Then
l_success = RemoveFontResource("acohs___.ttf")
If l_success = 0 Then
MsgBox "Font removal failed.", vbCritical
Else
l_success = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
End If
End If