Hi Walter,
This is the correct code !!
Lparameters x, Y, eventinfo, usedefault
oEventinfo = Getinterface(eventinfo,"ICRVEventInfo","crviewer9.dll")
oCollection = oEventInfo.GetFields()
ofiel = oCollection.Item(oCollection.SelectedFieldIndex)
=MESSAGEBOX(ofiel.value)
=MESSAGEBOX(ofiel.name)
Many thanks for the aid !!
franco
francofelosi@acut.it