Walter,

Thanks again for replying. Here is my code ( command1.click() ):

Local loCRApp, loCRReport, lcView

m.loCrApp = CreateObject('Crystal.CRPE.Application')

If type('loCrApp') = "O" and ! Isnull(loCrApp)
loCRReport = .null.
loCRReport = loCRApp.OpenReport( "D:\Seagate Software\Crystal Reports\RT01.Rpt" )
Else
messagebox('Could not initialise Crystal Reports', 48, 'Error')
Return
Endif

If type('loCrReport') = "O" and ! Isnull(loCrReport)
Thisform.OleControl1.ReportSource = loCrReport
Thisform.OleControl1.ViewReport()
Else
messagebox('Could not open Report', 48, 'Error')
Endif

My form has only two controls, Command1 ( CommandButton ) and OleControl1 ( Smartviewer Control ). I am using Vfp 5a and Crystal Reports Professional V7.01. One unusual thing is that the smart viewer control appears transparent in my vfp form. It shows all its controls in VB though.

Jin