Visual Basic - CARGAR FUENTES EN COMBO

Hola a todos:

Sabe alguien como se pueden cargar las fuentes del sistema (nombre, tamaño y cuerpo) en tres combos para colocar en una barra de herramientas.

Gracias

Yo lo que se hacer es lo siguiente

En un fromulario colocas un Boton, Una etiqueta y un MicrosftCommonDialog

Luego pegale este codigo a ver si te sirve

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Elegir Fuente"
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
CommonDialog1.ShowFont
Label1.FontName = CommonDialog1.FontName
Label1.FontSize = CommonDialog1.FontSize
Label1.ForeColor = CommonDialog1.Color
End Sub

Lo que hace es abrir el cuadro de fuentes, en fin tambien puedes abrir el cuadro solo de colores

CommonDialog1.showColor

Espero te sirva