What version of Crystal 9 did you get? Professional? Developer? Advanced?

>Hi, I have a litle Problem:
>
>Saludos cordiales para todos Grupo. Tengo un inconveniente y es el
>siguiente:
>
>I am using VFP 6.0 creating reports from Crystal Reports 7.0 and its work perfect. this is the way that I use:
>
>****************
>Function _CRReport
> Lparameters tcCursorName, tcPath, tcRPTName, tcTableName
>
> lcAlias = alias()
> Select (tcCursorName)
> lcTemp = sys(2015)
> Copy to (tcPath+lcTemp) type fox2x
> oCrystal=CreateObject("Crystal.CRPE.Application")
> #Define WS_MAXIMIZE 29949952
> Declare integer GetForegroundWindow in WIN32API
> Declare short IsWindow in WIN32API integer
>
> oRpt = oCrystal.OpenReport(tcRPTName)
> With oRpt
> With .Database.Tables(tcTableName)
> .Location = tcPath+lcTemp+".dbf"
> Endwith
> With .PrintWindowOptions
> .CanDrillDown = .t.
> .HasCancelButton = .t.
> .HasCloseButton = .t.
> .HasExportButton = .t.
> .HasGroupTree = .t.
> .HasNavigationControls = .t.
> .HasPrintButton = .t.
> .HasPrintSetupButton =.t.
> .HasProgressControls =.t.
> .HasRefreshButton =.f.
> .HasSearchButton =.t.
> .HasZoomControl =.t.
> Endwith
> .preview ("Report Preview: "+"by PeopleWork.",,,,,WS_MAXIMIZE,0)
> Endwith
> lnHwndActiveX = GetForegroundWindow() && Save window handle
>
> Do while IsWindow(lnHwndActiveX) # 0 && Wait while Activex Alive
> inkey(1)
> Enddo
>
> Clear dlls
>
> Erase (tcPath+lcTemp+".*")
> If !empty(lcAlias) and used(lcAlias)
> Select (lcAlias)
> Endif
>*
>The Problem is using Crystal reports 9.0 and this is the error:
>
>Cannot find the Object: oCrystal=CreateObject("Crystal.CRPE.Application")
>
>Could somebody help me?
>
>Andrickson D.