Visual Basic - Ver archivos de fuentes

Por favor, ¿ puede decirme alguien como puedo mostrar, por ejemplo en un label la fuente de un archivo TTF o FON pero sin tener que instalar la fuente en Windows ? por ejemplo, mostrra en un dirbox los archivos TTF de un directorio y según selecciono un archivo que se ponga una etiwqueta por ejemplo con esa fuente. Muchas gracias.

Hola.
Puedes hacerlo de dos maneras.

1-Con un CommonDialog

Private Sub Command1_Click()
' Establece Cancel a True.
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Establece la propiedad Flags.
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
' Presenta el cuadro de diálogo Fuente.
CommonDialog1.ShowFont
' Establece las propiedades del texto de acuerdo
' con lo seleccionado por el usuario.
Label1.Font.Name = CommonDialog1.FontName
Label1.Font.Size = CommonDialog1.FontSize
Label1.Font.Bold = CommonDialog1.FontBold
Label1.Font.Italic = CommonDialog1.FontItalic
Label1.Font.Underline = CommonDialog1.FontUnderline
Label1.FontStrikethru = CommonDialog1.FontStrikethru
Label1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
' El usuario hizo clic en el botón Cancelar.
Exit Sub
End Sub

Este ejemplo abre la ventana de fuentes y al aceptar cambia el Label1 a la fuente seleccionada ,tamaño,negrita , todo lo que selecciones.

2-Con un ListBox

Private Sub Form_Load()
Dim I ' Declarar la variable.
AutoRedraw = True ' Establecer AutoRedraw.
For I = 0 To Printer.FontCount - 1 ' Poner los nombre de las fuentes en una lista.
List1.AddItem Printer.Fonts(I)
Next I
List1.ListIndex = 0 ' Establecer el texto del primer elemento.
' Imprimir la información de ListCount en el formulario.
Print "Número de fuentes de impresora: "; List1.ListCount
End Sub

Private Sub List1_Click()
Label1.F

Private Sub List1_Click()
Label1.Font.Name = List1.Text
End Sub

Este ejemplo te carga las fuentes disponibles en un ListBox y a medida que vas seleccionando el Label1 cambia a la fuente seleccionada.No puedes elegir el tamaño , negrita etc.. que sí lo puedes hacer con el ejemplo anterior,sólo el tipo de fuente.

Espero que te sirva
Saludos

Muchas gracias por tus dos ejemplos, pero yo lo que quiero es visualklizar los archicos de fuentres que haya en undirectorio (no las fuentes instaladas en el sistema), y sin tenr que instalarlas, simplemente seleccionando el nombre del archivo en la lista, que exrtraiga la funete que contienee ese archivo y luego que ponga la etiqueta con esa fuente.

Muchas gracias