PUBLIC mmform
mmform = CREATEOBJECT("myForm")
mmForm.show

DEFINE CLASS myForm as Form
	
	PROCEDURE Load
		
		defineFlylabel = ""
		 
		TEXT TO defineFlylabel TEXTMERGE NOSHOW
			SET PROCEDURE	TO SYS(16) ADDITIVE
      		DEFINE CLASS mylabel as Label

			ENDDEFINE
		ENDTEXT
		
		=EXECSCRIPT(defineFlylabel)	&& this load the procedure, and destroy IT
		
		* workaround
*			RANDOMFILENAME=FORCEEXT(FORCEPATH(SYS(2015),SYS(2023)),".TMP")
*			
*			STRTOFILE(defineFlylabel,RANDOMFILENAME)
*			COMPILE (RANDOMFILENAME) NODEBUG
*			ERASE (RANDOMFILENAME)
*			DO (FORCEEXT(RANDOMFILENAME,"FXP"))
		
		this.AddObject("someName","myLabel")	&& CRASH when you try to use a class definition
* VFP internal structure it becomes incoherent
	
	PROCEDURE UNLOAD
		SET PROCEDURE TO
		
ENDDEFINE