Once you pull it down, try this.

CREATE CURSOR crsrFontList ( ;

cFont char(30))

llGotFonts = AFONT(laFonts)

FOR i = 1 TO ALEN(laFonts)

INSERT INTO crsrFontList VALUES (laFonts(i))

ENDFOR

CREATE REPORT fontList FROM DBF("crsrFontList")

loListen = CREATEOBJECT("myFontListener")

REPORT FORM fontList PREVIEW OBJECT loListen

DEFINE CLASS myFontListener as ReportListener

ListenerType = 1

PROCEDURE EvaluateContents

LPARAMETERS nFrxRecno, oObjProperties

oObjProperties.FontName = cFont oObjProperties.Reload = .T.

ENDPROC

ENDDEFINE

On Thu, 3 Jun 2004 15:30:05 -0600, Brian Erickson <pantegra@dashley.net> wrote:

> Cool

> And thanks

> -----Original Message-----

> From: profoxtech-bounces@leafe.com [mailto:profoxtech-bounces@leafe.com] On

> Behalf Of Ken Levy

> Sent: Thursday, June 03, 2004 3:20 PM

> To: profoxtech@leafe.com

> Subject: Visual FoxPro 9.0 Beta available

>

> The Visual FoxPro 9.0 public beta is now available for download!