PROCEDURE AddLib LPARAMETERS tcLib, tcFile LOCAL ARRAY laLibArray[1] IF NOT UPPER(tclib) + '.VCX' $ SET('CLASSLIB') IF PCOUNT() = 1 SET CLASSLIB TO (tcLib) ADDITIVE ELSE ALINES(laLibArray, tcLib, .T., ',') FOR EACH tcLib IN laLibArray SET CLASSLIB TO (tcLib) IN (tcFile) ADDITIVE ENDFOR ENDIF ENDIF ENDPROCIf this works for you, I'll make it official!