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 Usingdann hab ich mal gegoogled und dies gefunden

http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/b83d799d-534f-4888-b114-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~