RE:Como poner fuentes de letra en Vb
Tienes dos opciones:
1. Desde el panel de control abres la carpeta de fuentes; ahí, en el menú Archivo, tienes una opción para instalar una nueva fuente.
2. Si lo que quieres es que tu programa sea capaz de trabajar con fuentes nuevas de forma automática, tienes que utilizar una función del API, la función AddFontResource. Para ello añade las siguientes declaraciones:
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
Para añadir una nueva fuente:
Dim result As Long
result = AddFontResource("c:\ruta\fuente.ttf")
Si quieres después eliminarla, entonces utilizas RemoveFontResource:
result = RemoveFontResource("c:\ruta\fuente.ttf")