DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	DoCreate = .T.
	Caption = "Form1"
	KeyPreview = .T.
	Name = "Form1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 84, ;
		Left = 12, ;
		Height = 85, ;
		Width = 265, ;
		Caption = "F1", ;
		Name = "Command1"


	PROCEDURE Unload
		SET HELP on
	ENDPROC


	PROCEDURE Init
		SET HELP off
	ENDPROC


	PROCEDURE command1.Click
		WAIT [f1 click] window
	ENDPROC


	PROCEDURE command1.KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		If nKeyCode = 28
			This.Click()
		Endif
		DODEFAULT()
	ENDPROC


ENDDEFINE