oListener = CREATEOBJECT("ReportListener") olistener.ListenerType = 1 oListener2 = CREATEOBJECT("ReportListener") olistener2.ListenerType = 1 REPORT FORM rptPrdName NOWAIT Object oListener REPORT FORM rptPrdName NOWAIT Object oListener2