SoloCodigo

En el libro pone que

Dim CRWizard As New CRStandardWizard
Dim Application As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
luego
Set CRWizard.CystalReport = Report
Set Application = CreateObject("CrystalRuntime.Application")
el Report
Set Report = Application.NewReport
(me da error en esta linea)
"Función de creación no activada"

pero nada de nada

yo he probado con
Dim CRWizard As New CrystalReportWizard9.CRStandardWizard

leyendo parece que debo poner la clave del registro y lo he hecho, pero tampoco.
 

He copiado código de un libro y de internet, pero me atasco en la instrucción de
Application.SetLicenseKeycode ("xxxxx-xxxxxxx-xxxxxxx")

me dice que
"codigo de clave de creación de informes, no válido"

y es el codigo del registro de mi crystal reports 9.

Alguien sabe que puede pasar?

Si no pongo esta instrucción no puedo hacer la siguiente que es:
Set Report = Application.NewReport


Me podeis dar alguna pista.
Gracias