FoxPro/Visual FoxPro - Obtener lista de Fonts

Buen dias Sres, Como puedo obtener una lista de los fonts de windows, para usarla dentro de un combobox....de antemano gracias.

Con AFONT(NombreMatriz [, cNombreFuente [, nTamañoFuente]])

Si solo se indica la matriz, el resultado será una matriz con los nombres de las fuentes.

si se especifica cNombreFuente, la matriz tendrá -1 si la fuente es escalable libremente, y si es solo escalable con valores discretos, la matriz tendrá los valores que se pueden indicar.

Si se especifica también el tamaño, la matriz tiene .t. si la fuente especificada puede escalarse a ese tamaño, y false en caso contrario...

Espero que te sirva.