Steve, I use the following method. I tested it on CR 8.5 and VFP 7.0


With Thisform
.oCrystalReports = Createobject("CrystalRuntime.Application")
.oReport = Createobject ("CrystalRuntime.Report")
.oReport = .oCrystalReports.OpenReport("my_report.rpt")
.oReport.ParameterFields(1).SetCurrentValue(my_parameter1)
.oReport.ParameterFields(2).SetCurrentValue(my_parameter2)

.AddObject("oleCRViewer", "oleControl", "crViewer.crViewer")

With .oleCRViewer
* Set report viewer properties
.Top = 1
.Left = 1
.Height = Thisform.Height - 2
.Width = Thisform.Width - 2
.ReportSource = Thisform.oReport
.ViewReport()

Endwith
Endwith

Martin