PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT combo1 AS combobox WITH ; RowSourceType = 1, ; RowSource = "AAA,B,CC,DD,FF", ; Value = .NULL., ; Height = 24, ; Left = 96, ; Top = 24, ; Width = 156, ; NullDisplay = "<Choose an option>", ; Name = "Combo1" ENDDEFINE