>Now I want to do something in the keypress event which is only in options and not in the option group. Can anyone suggest a way to programatically override the keypress method of the options in the init method of the OptionGroup?

The thing to do in this case, is loop threw all the Options, saving stuff, remove the option, and add a new one based on a class you've pre defined (this isn't tested, just off the top of my head):

*OptionGroup.Ini()
local loButton, lnLeft, , lnTop, lcName, lcCaption
for lnI = This.ButtonCount to 1 step -1
	loButton = eval('this.' + This.Buttons[lnI].name)
	lnLeft = loButton.Left
	lnTop = loButton.Top
	lcName = loButton.Name
	lcCaption = loButton.Caption
	This.RemoveObject(lcName)
	This.NewObject(lcName, 'YourClass', 'YourLibrary')
	loButton = eval('this.' + lcName)
	loButton.Top = lnTop
	loButton.Left = lnLeft
	loButton.Caption = lcCaption
	loButton.AutoSize = .t.
	loButton.Visible = .t.
endfor