PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT combo1 AS combobox WITH ; Height = 24, ; Left = 67, ; Top = 84, ; Width = 240, ; Name = "Combo1" ADD OBJECT command1 AS commandbutton WITH ; Top = 180, ; Left = 145, ; Height = 27, ; Width = 84, ; Caption = "Exit", ; Name = "Command1" PROCEDURE combo1.Init This.AddItem("One") This.AddItem("Two") This.AddItem("Three") ENDPROC PROCEDURE command1.Click Thisform.Release() ENDPROC ENDDEFINE