TEXT TO lcClassDef TEXTMERGE NOSHOW *-- Just an example of a form class: DEFINE CLASS MyFormClass AS Form Backcolor = 0 LEFT = 0 TOP = 0 ENDDEFINE ENDTEXT * THISFORM.cClassDefinition = FORCEPATH(FORCEEXT(SYS(2015),"PRG"),GETENV("TEMP")) * STRTOFILE(lcClassDef,THISFORM.cClassDefinition,0) COMPILE (THISFORM.cClassDefinition) * *-- In another method in your form call first the code above in a method and then instantiate your class that way: loForm = NEWOBJECT("MyFormClass",THISFORM.cClassDefinition) loForm.SHOW(1)HTH