DEFINE CLASS wf1 AS form
	Height =  204 
	Width =  449 
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount =  3 , ;
		Top =  12 , ;
		Left =  12 , ;
		Width =  241 , ;
		Height =  169 , ;
		Name = "Pageframe1", ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2", ;
		Page3.Caption = "Page3", ;
		Page3.Name = "Page3"

	ADD OBJECT label1 AS label WITH ;
		Caption = "Page1", ;
		Height =  17 , ;
		Left =  264 , ;
		Top =  24 , ;
		Width =  156 , ;
		Name = "Label1"

	PROCEDURE pageframe1.Page1.Activate
		THISFORM.Label1.Caption = THIS.Name
	ENDPROC

	PROCEDURE pageframe1.Page2.Activate
		THISFORM.Label1.Caption = THIS.Name
	ENDPROC

	PROCEDURE pageframe1.Page3.Activate
		THISFORM.Label1.Caption = THIS.Name
	ENDPROC

ENDDEFINE