USE ("mybaseclasslib.vcx") ALIAS myclass IN SELECT("myclass") LOCATE FOR objname = This.ParentClass AND EMPTY(parent) IF FOUND() lcMemberData=STREXTRACT(properties,"_memberdata = ",CHR(13)) IF LEFT(lcMemberData,1) = CHR(1) lcMemberData = SUBSTR(lcMemberData,517+8+1) ENDIF XMLTOCURSOR(lcMemberData) BROWSE LAST NOWAIT ENDIF USE IN SELECT("myclass")But, as you can see, this could go on and on. It may not be worth the effort in your case.