Vb.net Font installieren

[CYSER]

Ich möchte einen Font in windows/fonts/ installieren, dachte ich probier ich es erstmal mit drop in den fonts ordner ganz einfach nur so geht es nicht

 On Error Resume Next
        Using fs0 As New FileStream(Path.Combine(Environ("windir") & "\" & "Fonts" & "\", "MyriadPro-Black.otf"), FileMode.Create, FileAccess.Write, FileShare.None)
            With New BinaryWriter(fs0)
                .Write(My.Resources.MyriadPro_Black)
                .Flush()
                .Close()
            End With
        End Using

dann hab ich mal gegoogled und dies gefunden

http://social.msdn.microsoft.com/For...4-de83e7735204

allerdings komm ich damit nicht ganz klar:

Dim Ret As Integer
  Dim Res As Integer
  Dim FontPath As String
  Const WM_FONTCHANGE As Integer = &H1D
  Const HWND_BROADCAST As Integer = &HFFFF
 FontPath = WinFontDir & "\" & FontFileName 
 Ret = AddFontResource(FontPath)
 Res = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)       
  Ret = WriteProfileString("fonts", FontName & " (TrueType)", FontFileName)

WinFontDir: sollte doch der pfad zum font auf der platte sein oder?
FontFileName: sollte doch der font name sein in meinem Falle MyriadPro_Black.otf oder ohne otf?

desweiteren ist es ein Opentype also aus Truetype, Opentype machen?

Dann sollte es so aussehen:

"FontPath = Environ("temp") & "\" & MyriadPro_Black"

allerdings sagt er mir dann

Der Name "MyriadPro_Black" wurde nicht deklariert. SOll ich das dann als File deklarieren?

Lange rede kurzer Sinn kann mir wer bei der source helfen so das ich das teil aus der resource droppen kann und installiern?

push~