PUBLIC oForm
oForm=CREATEOBJECT('form1')
oForm.Visible= .T.

DEFINE CLASS form1 AS form
	DoCreate = .T.
	Caption =  "Form1" 
	KeyPreview = .T.
	Name =  "Form1" 
	ADD OBJECT text1 AS textbox WITH ;
		Height =  25 , ;
		Left =  72 , ;
		Top =  36 , ;
		Width =  241 , ;
		Name =  "Text1" 
	ADD OBJECT text2 AS textbox WITH ;
		Height =  25 , ;
		Left =  72 , ;
		Top =  72 , ;
		Width =  241 , ;
		Name =  "Text2" 
	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		WAIT WINDOW 'Form.KeyPress'
	ENDPROC
	PROCEDURE text1.LostFocus
		thisform.KeyPreview= .T. 
	ENDPROC
	PROCEDURE text1.GotFocus
		thisform.KeyPreview= .F. 
	ENDPROC
	PROCEDURE text1.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		WAIT WINDOW  "Text1.KeyPress" 
	ENDPROC
ENDDEFINE