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"))