For use in my programs, I simplify it as:
Pete
Code: (Select All)
myfont& = _LoadFont(Environ$("SYSTEMROOT") + "\fonts\lucon.ttf", 26, "MONOSPACE")
_Font myfont&
Print "Hello World!"
Sleep ' Enlarge font demo over. Now restore the original font and screen size.
_Font 16
If myfont& Then _FreeFont myfont&
Pete

