Шрифт не устанавливается в папку шрифтов windows

---

Шрифт не установить в Windows шрифт папку это не тот же вопрос, но шрифт не установить в папку шрифтов я применил эти строки проверить это и решить.

Что я уже пробовал:

Imports System.Runtime.InteropServices
Imports System.IO
Imports Microsoft.Win32

Public Class Form1
    Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
    Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long


    Private Sub Button_InstallFont_Click_1(sender As Object, e As EventArgs) Handles Button_InstallFont.Click
        AddFontResource("C:\Users\MyComputer\Desktop\ALHAMBRA.ttf")
        InstallFont("C:\Users\MyComputer\Desktop\ALHAMBRA.ttf")
    End Sub
  
    Public Function InstallFont(ByVal FileName As String) As Boolean
        InstallFont = AddFontResource(FileName) <> 0
    End Function

End Class

---