Select Reserved3 ; FROM ('_ClassFile_') ; WHERE LOWER(ObjName) == lcClassName AND LOWER(Reserved1) == 'class' ; INTO Array arrPEM Use In ('_ClassFile_') IF _Tally > 0 lnLines=ALINES(arrPEMs,arrPem) ASORT(arrPEMs) WITH thisform.lstClasses .ListIndex = 0 .Clear() FOR ix=1 TO lnLines IF ISALPHA(arrPEMs[ix]) && ByPass protected,hidden and methods lcItem = IIF(OCCURS(' ',arrPEMs[ix])>0, ; LEFT(arrPEMs[ix],AT(' ',arrPEMs[ix])-1), arrPEMs[ix]) .lstClasses.AddItem(lcItem) endif ENDFOR ENDWITHCetin