* put ClassLib and ParentClass on variables * open VCX USE (m.ClassLib) SHARED ALIAS myInheritLib NOUPDATE * found inherited class LOCATE FOR ObjName==m.ParentClass * get inherit code inheritCode=STREXTRACT(Methods,'PROCEDURE Init','ENDPROC',1,1) * release USEFabio