of_spr = CREATEOBJECT("mf1")
of_spr.Show( 1 )

DEFINE CLASS mf1 AS form

	Top =  0 
	Left =  0 
	Height =  74 
	Width =  256 
	DoCreate = .T.
	Caption = "w_f1"
	Name = "mf1"
	DIMENSION m_array_1[ 2 ]

	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  24 , ;
		Left =  144 , ;
		Height =  27 , ;
		Width =  84 , ;
		Caption = "Command1", ;
		Name = "Command1"

	ADD OBJECT text1 AS textbox WITH ;
		Height =  23 , ;
		Left =  24 , ;
		Top =  12 , ;
		Width =  100 , ;
		Name = "Text1"

	ADD OBJECT text2 AS textbox WITH ;
		Height =  23 , ;
		Left =  24 , ;
		Top =  36 , ;
		Width =  100 , ;
		Name = "Text2"

	PROCEDURE Init
		THIS.M_array_1[ 1 ] =  15 
		THIS.M_array_1[ 2 ] =  50 

		THIS.Text1.Value = THIS.M_array_1[ 1 ]
		THIS.Text2.Value = THIS.M_array_1[ 2 ]
	ENDPROC


	PROCEDURE command1.Click
		DO FORM w_f2
	ENDPROC


ENDDEFINE
**************************************************
**************************************************
DEFINE CLASS w_f2 AS form


	Height =  83 
	Width =  173 
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "w_f2"
	Name = "w_f2"


	ADD OBJECT text1 AS textbox WITH ;
		Height =  23 , ;
		Left =  24 , ;
		Top =  12 , ;
		Width =  100 , ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		Height =  23 , ;
		Left =  24 , ;
		Top =  36 , ;
		Width =  100 , ;
		Name = "Text2"


	PROCEDURE Init
		IF TYPE("_VFP.Forms('mf1')")="O" 
		  THIS.Text1.Value = _VFP.Forms('mf1').M_array_1[ 1 ]
		  THIS.Text2.Value = _VFP.Forms('mf1').M_array_1[ 2 ]
		ELSE
		  THIS.Text1.Value =  0 
		  THIS.Text2.Value =  0 
		ENDIF
	ENDPROC


ENDDEFINE
**************************************************