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.
 

No entiendo.
Me has respondido para aclararme algo? me has repetido lo que yo he puesto. No se donde debo cambiar o que debo hacer.
Gracias por responder de todas formas.