Hi irvinehing
I think you should try it this way :
Set frx = CreateObject("FastReport.TfrxReport")
frx.EngineOptions.SilentMode = simMessageBoxes
frx.LoadReportFromFile ("Report.fr3")
Set pic1 = frx.FindObject("Picture1")
pic1.Picture = Picture1.Picture.Handle
Set pic1 = Nothing
Comments
Hi irvinehing
I think you should try it this way :
Set frx = CreateObject("FastReport.TfrxReport")
frx.EngineOptions.SilentMode = simMessageBoxes
frx.LoadReportFromFile ("Report.fr3")
Set pic1 = frx.FindObject("Picture1")
pic1.Picture = Picture1.Picture.Handle
Set pic1 = Nothing