PUBLIC oform1 oform1=NEWOBJECT("Form1") oform1.Show RETURN ************************************************** *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 03/24/06 03:58:03 PM * DEFINE CLASS Form1 AS form DoCreate = .T. Caption = "Form" test = .F. Name = "Form1" ADD OBJECT optiongroup1 AS optiongroup WITH ; ButtonCount = 2, ; Value = 1, ; ControlSource = "thisform.test", ; Height = 63, ; Left = 30, ; Top = 20, ; Width = 115, ; Name = "Optiongroup1", ; Option1.Caption = "Option1", ; Option1.Value = 1, ; Option1.Height = 17, ; Option1.Left = 5, ; Option1.Top = 5, ; Option1.Width = 61, ; Option1.Name = "Option1", ; Option2.Caption = "Option2", ; Option2.Height = 17, ; Option2.Left = 5, ; Option2.Top = 24, ; Option2.Width = 61, ; Option2.Name = "Option2" ADD OBJECT command1 AS commandbutton WITH ; Top = 128, ; Left = 94, ; Height = 27, ; Width = 84, ; Caption = "Click me", ; Name = "Command1" PROCEDURE optiongroup1.Init thisform.Test = 2 ENDPROC PROCEDURE command1.Click thisform.test = IIF(thisform.Test = 2,1,2) thisform.Optiongroup1.Refresh() ENDPROC ENDDEFINE