Public Function EjecutaReportForm( Source As Notesuidocument )
Dim m_Viewer As Variant, App As Variant
With Source
Stop
' The Crystal Report Viewer Control
Set m_Viewer = .GetObject("Crystal Report Viewer Control")
' The application object
Set App = CreateObject("CrystalRuntime.Application")