Hi John,

run
use click and rightclick to move record pointer

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

ENDDEFINE

the problem is this, optionGroup donnot ignore extra text on ob.Caption, then
you need a exact matching field-caption values ( you can use Tooltips or other tech for show complete text)

Fabio