Christian,

Try putting in a "RELEASE CLASS PreviewWindow" before the erases. You may also try using a "RELEASE PROCEDURE (lcDefFile)". Hopefully, this will take care of your problem.

>Hello,
>
>I try to do the following:
>

lcDefFile = FORCEEXT(SYS(2015), "PRG")
>*
>TEXT TO lcDefineClass TEXTMERGE NOSHOW
>	DEFINE CLASS PreviewWindow AS Form
>		SHOWWINDOW = 1
>		DESKTOP = .T.
>	ENDDEFINE
>ENDTEXT
>STRTOFILE(lcDefineClass, lcDefFile)
>*
>loPreviewWindow = NEWOBJECT("PreviewWindow", lcDefFile)
>loPreviewWindow.SHOW()
>*-- some work done here			
>*-- Here I need to find the proper way to close the
>*-- references.
>*-- I try to get rid of the outstanding references but
>*-- this does not work.
>RELEASE loPreviewWindow
>*-- This will give an error: Procedure file ... not found.
>*-- RELEASE CLASSLIB (FORCEEXT(lcDefFile, "FXP"))
>ERASE (lcDefFile)
>*-- The next one gives an error, Outstanding references...
>ERASE (FORCEEXT(lcDefFile, "FXP"))

>Can somebody help me here?