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