>>>LOCAL laproclist[1],lavcxlist[1], lnRes, lnx >>>aaa= _vfp.ActiveProject >>> >>>FOR lnx = 1 TO aaa.Files.Count >>> dd=aaa.Files.Item[lnx] >>> DO CASE >>> CASE dd.type = "V" >>> lnRes = AVCXCLASSES(lavcxlist,JUSTFNAME(dd.name)) >>> *// Process here > *// lavcxlist[xxx,1] is the class name plus method ie myclass.mymethod. > *// lavcxlist[xxx,2] is the line number the class.method starts. > *// you can use EDITSOURCE to go directly to the code. > EDITSOURCE("myprgname.prg",lavcxlist[xxx,2],GETWORDNUM(lavcxlist[xxx,1],2,".")) >> >> *Yes, I was thinking along these lines, but we need to extract the methods' names here... >> >>> CASE dd.type = "P" >>> lnRes = APROCINFO(laproclist,JUSTFNAME(dd.name)) >>> *// Process here >>> OTHERWISE >>> >>> ENDCASE >>>NEXT >>> >>>>>>