Local loForm as Form
loForm = NewObject("form1")
loForm.Show(1)
***
DEFINE CLASS form1 AS form
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"
	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 12, ;
		Left = 12, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Click me", ;
		Name = "Command1"
	Procedure command1.Click
		MessageBox("Click")
	EndProc
EndDefine