Hi Franco,

I've done this in the past. I seem to have lost the code, but I'm sure you'll have to use the GETINTERFACE funtion in order to VFP recognize the objectmodel of the EventInfo class.

Without testing, I think it should be something like

oEventInfo  = GETINTERFACE(EventInfo,"CRVIEWER9LibCtl.CRVEventInfo")
oCollection = oEventInfo.GetFields()
oField      = oCollection.Item(fcol.SelectedFieldIndex)
MESSAGEBOX(oField.Value)

Walter,