Salve a tutti,
Ho sottomano questo codice VB per installare font TTF:
codice:
Dim Ret%, Res&
Const WM_FONTCHANGE = &H1D
Const HWND_BROADCAST = &HFFFF
Const FontPath$ = "Arial.TTF"
Const FontRes$ = "Arial.FOT"
Const FontName$ = "Arial"
Const WinPath$ = "c:\windows"
Ret% = CreateScalableFontResource(0, FontRes$, FontPath$, WinPath$)
Ret% = AddFontResource(FontRes$)
Res& = SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
Ret% = WriteProfileString("fonts", FontName$ + " Arial (TrueType)", FontRes$)
Mi potreste aiutare a capire come convertirlo in VB.NET?

EDIT: ho risolto, ma non riesco a cancellare la discussione!