Font not install in windows font folder

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