Refresh Fonts Folder

[selimsl]

Hi

For a project I am working on,I need use a specific font file.I copied this font file to windows fonts folder using this code.

FSys.CopyFile App.Path & "\FUTRFW.TTF", "C:\WINDOWS\Fonts\", False

But when I open my project I see my text is on default font, not on the font I copied.
When I open Fonts folder once,font of text in my project turn into font that I loaded.
I mean I have to open and close Fonts folder once, using code.
Have can I accomplish this job?

Thanks in advice

 

[petermeachem]

I do this
Public Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

like

L = AddFontResource(cPath)