Set Classlibrary to VFXOffice.vcxin fact I have following procedure:
* SetClassLib Set Classlib To setclasslib("calendar") setclasslib("errorslog") setclasslib("foxcharts") **and and Procedure setclasslib Parameters tcClass Local lToSet lToSet = .F. Do Case Case Vartype(m.tcClass) = 'L' lToSet = .F. Case Empty(Set('classlib')) lToSet = .T. Case Atc(m.tcClass, Set('classlib')) = 0 lToSet = .T. Endcase If m.lToSet = .T. lcClass = Upper(Alltrim(m.tcClass))+".VCX" Set Classlib To (m.lcClass) Additive Else Return .F. Endif ReturnWould that not work in your case?