lParameters tcMethod, toObject with toObject select methods from (.classlibrary) ; where objname == lower(.class) ; and class == lower(.parentclass) ; and baseclass == lower(.baseclass) ; into array myArray endwith lnProcStart = at("PROCEDURE "+upper(tcMethod),upper(myArray[1])) lcMethodCode = "" if lnProcStart > 0 lcMethodCode = substr(myArray[1],lnProcStart) lnMethodEnd = max( at("ENDPROC",upper(lcMethodCode))+len("ENDPROC"),; at("PROCEDURE",upper(lcMethodCode),2)-1) if lnMethodEnd = 0 lnMethodEnd = len(lcMethodCode) endif lcMethodCode = substr(lcMethodCode,1,lnMethodEnd) endifThis needs accessibility to vcx (set excl off) and vcx contain the code (not cleaned up after compiling) and assumes standart vcx structure. Hope helps.