FoxPro/Visual FoxPro - Lista de Fuentes de Windows

Buenas Tardes estoy haciendo un programita donde necesito que el usuario seleccione un determinado tipo de letra, como puedo obtener una lista de los nombres de los fuentes, para ponerlos de rowsource de un combobox.

Hola con esto podes crear una matriz en donde colocar las fuentes de windows. en el init del formulario podes colocarle
public mfonts(1,1)
=afont(mfonts)
*Para que no pueda ingresar un Fuente que no exista colocale
this.combo1.style=2
this.combo1.rowsourcetype=5&&Matriz
this.combo1.rowsource="mfonts"
this.combo1.listindex=1
* Para mostrar automaticamente el nombre de
* la primer fuente en el combo
Espero te hay servido, chau