I have created an Active X control in VB6 and am programmatically adding it to a VFP 8 form as shown below. The EVENTHANDLER is throwing an error... 'Function, arguement count or type is invalid'.

	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