Visual Basic - Se puede cambiar tipo de letra...??

Hola a todos los del foro.....

Me gustaria saber como hacer (si es que se puede) para que al apretar un boton me aparesca el cuadro con los distintos tipos de letras que hay, y asi poder cambiar a otro tipo de letra de un textbox o un label.....

desde ya agradesco las respuestas que me puedan enviar

Saludos

Cargar las fuentes en un ListBox:

Private Sub Command1_Click()
Dim I As Integer
For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I
End Sub

Al seleccionar una fuente en el ListBox anterior y presionar el boton de comando 2, me cambia la fuente.

Private Sub Command2_Click()
Text1.FontName = List1.List(List1.ListIndex)
End Sub

Espero te sirva. Saludos