Hi Bill,

I think I would like to re-locate to LVNV in a few years, I hope there will be room for one more VFP'r anyway here you go:

LOCAL laObj(1), lcHierarchy, loObj

= ASELOBJ(laObj)
lcHierarchy = laObj(1).name
loObj = laObj(1)
DO WHILE TYPE('loObj.parent.name') = 'C'
	lcHierarchy = loObj.Parent.Name + '.' + lcHierarchy
	loObj = loObj.parent
ENDDO

? lcHierarchy

Glenn