CLEAR DELETE FILE testxx.pjx CREATE PROJECT testxx nowa TEXT TO lcText NOSHOW ox = CREATEOBJECT('form2') ox.show(1) * change to OF testxxB.vcx to test with VCX. DEFINE CLASS form2 AS form1 OF testxxA.fxp ENDDEFINE ENDTEXT DELETE FILE testxx.prg =STRTOFILE(lcText,'testxx.prg',0) TEXT TO lcText NOSHOW DEFINE CLASS form1 AS form autocenter = .t. Caption = this.classlibrary ENDDEFINE ENDTEXT DELETE FILE testxxA.prg =STRTOFILE(lcText,'testxxA.prg',0) DELETE FILE testxxB.vc? CREATE CLASS form1 OF testxxB.vcx as form NOWAIT ASELOBJ(xx,1) xx[1].autocenter = .t. xx[1].writemethod('init','this.caption = this.classlibrary') ACTIVATE WINDOW 'class designer' KEYBOARD '{ctrl+w}' _vfp.ActiveProject.files.add('testxx.prg') _vfp.ActiveProject.files.add('testxxA.prg') _vfp.ActiveProject.files.add('testxxB.vcx') IF !_vfp.ActiveProject.Build('testxx.exe') ?"build failed" _vfp.ActiveProject.close RETURN ENDIF _vfp.ActiveProject.close DELETE FILE testxxA.prg DELETE FILE testxxA.fxp DELETE FILE testxxB.vc? lcRuncmd ="! /n "+SET("Default")+CURDIR()+'testxx.exe' &lcRuncmd RETURNThanks for bringing this to our attention!