SET CLASSLIB TO ("mindseyereportengine.vcx") ADDITIVE
SET CLASSLIB TO ("mindseyereportpreviewforms.vcx") ADDITIVE
loHost=CREATEOBJECT('MindsEyeReportEngine')

*loHost.cScope=loReport.cScope
*loHost.cWhileExpression=loReport.cWhile
*loHost.cForExpression=loReport.cFor
*loHost.nRecords=loReport.nInitialRecord

*loHost.lDisplayexecutiontime=!loReport.Silent
*loHost.cReportPreviewFormCaption=loReport.Caption

loForm = loHost.ReportFormObject("your_report",0)
loEngine=loForm.oReportEngine

*loEngine.DisplayNewPageButton=loReport.PRV.UpdateMode
*loEngine.DisplayDeletePageButton=loReport.PRV.UpdateMode
loEngine.Scale=5000

loForm.Show(1)