InstallTTF

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$)