Visual Basic - IMAGENES & CRYSTAL ( RDC )

Hola a Tod@s,

Miren mi empresa compró el Crystal Developer Spanish, pero ahora me
sale este error al intentar colocar una imagen en el Report, es por la
version o una paranoia de Crystal.

Error' -2147189571'

Está intentando utilizar funciones q pertenecen a la licencia API para creacion de informes de Crystal Decision. El sistema no tiene una licencia válida o la copia de evaluacion de la licencia ha caducado.

utilizo estas opciones :

Private Sub Form_Load()

Dim Secciones As CRAXDRT.sections
Dim Seccion As CRAXDRT.section
Dim imagen As CRAXDRT.OLEObject


'Abrir el reporte
Screen.MousePointer = vbHourglass

Set crReport = crApp.OpenReport(App.Path & "\RPT\ESP\RPTVB2.rpt", 1)
CR.ReportSource = crReport

crReport.DiscardSavedData

'METODO Nº 1 FORMULA
Dim formula As CRAXDRT.FormulaFieldDefinition
Set formula = crReport.FormulaFields.GetItemByName("nbill")

formula.Text = "'12345'"

'METODO Nº 2 FORMULA
crReport.FormulaFields.GetItemByName ("nbill").Text = "'HOLA'"


Set Secciones = crReport.sections

Dim ruta As String
ruta = App.Path & "\jaime.bmp"

For Each Seccion In Secciones


Seccion.AddPictureObject ruta, 1000, 1000

Next Seccion

CR.ViewReport


Screen.MousePointer = vbDefault

End sub

Gracias y Salu2 Jaime