PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


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


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 38, ;
		Left = 188, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command2", ;
		Name = "Command2"


	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		Form::KeyPress(m.nKeyCode, m.nShiftAltCtrl)
		NODEFAULT
	ENDPROC

ENDDEFINE