WITH ThisForm .AddObject("oleReportControl", "olecontrol", "NSAcctStatus.rptAccountStatus") WITH .oleReportControl .Top = 0 .Left =0 .Height = ThisForm.Height .Width = ThisForm.Width ENDWITH ** Create an instance of the event handler class .oEventTrap = NEWOBJECT("NSControlEvents") ** Bind the control's event to the event handler class =EVENTHANDLER(.oleReportControl, .oEventTrap) .oleReportControl.Visible = .T. ENDWITH RETURN