Kevin,

>I've modified your code slightly, although it's functionally equivalent:

I needed to make one more change myself, so including your change we have:

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
               IF NOT UPPER(tclib) + '.VCX' $ SET('CLASSLIB')
                  SET CLASSLIB TO (tcLib) IN (tcFile) ADDITIVE
               ENDIF
            ENDFOR
         ENDIF
      ENDIF
ENDPROC

So far it is working against all my forms.

Thanks,

Gary Pike.