>> >>DEFINE CLASS form1 AS form >> >> >> Top = 7 >> Left = 73 >> Height = 379 >> Width = 466 >> DoCreate = .T. >> Caption = "Form1" >> Name = "Form1" >> >> >> ADD OBJECT optiongroup1 AS optiongroup WITH ; >> ButtonCount = 2, ; >> Value = 1, ; >> Height = 46, ; >> Left = 84, ; >> SpecialEffect = 0, ; >> Top = 60, ; >> Width = 71, ; >> Name = "Optiongroup1", ; >> Option1.Caption = "Option1", ; >> Option1.Value = 1, ; >> Option1.Height = 17, ; >> Option1.Left = 5, ; >> Option1.SpecialEffect = 0, ; >> Option1.Style = 1, ; >> Option1.Top = 5, ; >> Option1.Width = 61, ; >> Option1.Name = "Option1", ; >> Option2.Caption = "Option2", ; >> Option2.Height = 17, ; >> Option2.Left = 5, ; >> Option2.SpecialEffect = 0, ; >> Option2.Style = 1, ; >> Option2.Top = 24, ; >> Option2.Width = 61, ; >> Option2.Name = "Option2" >> >> >>ENDDEFINE >>* >>*-- EndDefine: form1 >>************************************************** >>>>