PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Caption = "Form1" Name = "FORM1" ADD OBJECT optiongroup1 AS optiongroup WITH ; ButtonCount = 2, ; Value = "", ; ControlSource = "C1.F1", ; Height = 45, ; Left = 52, ; Top = 17, ; Width = 40, ; Name = "Optiongroup1", ; Option1.Caption = "\<F", ; Option1.Left = 5, ; Option1.Top = 5, ; Option1.Width = 61, ; Option1.Name = "Option1", ; Option2.Caption = "\<M", ; Option2.Left = 5, ; Option2.Top = 24, ; Option2.Width = 61, ; Option2.Name = "Option2" PROCEDURE Load CREATE CURSOR C1 (f1 C(1)) INSERT INTO C1 VALUES ("F") INSERT INTO C1 VALUES ("M") GO TOP ENDPROC PROCEDURE RightClick IF !EOF() SKIP THISFORM.REFRESH ENDIF ENDPROC PROCEDURE Click IF !BOF() SKIP -1 THISFORM.REFRESH ENDIF ENDPROC ENDDEFINEthe problem is this, optionGroup donnot ignore extra text on ob.Caption, then