Hi Walter,

I have tried with GETINTERFACE it does not seem to work:OLEERROR.

*** ActiveX Control Event ***
Lparameters x, Y, eventinfo, usedefault
oEventInfo = GETINTERFACE(EventInfo,"CRVIEWER9LibCtl.CRVEventInfo")
oCollection = oEventInfo.GetFields() && OLEERROR 0x8002802b impossible to find element

thanks for your time !!
franco
francofelosi@acut.it