>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