Hi Herb,
Here's my code and the results:
Attachment 292Code://
// Lianja custom recital gadget "gadget1"
//
namespace herb1
public optgrp
define class gadget1 as gadget
enddefine
define class mybutt as commandbutton
proc click()
=messagebox("Selected Value =:"+alltrim(str(optgrp.value))+" Selected Caption =:"+optgrp.buttons(optgrp.value).caption)
endproc
enddefine
proc gadget1
gadget1 = createobject("gadget1")
optgrp = createobject("optiongroup")
optgrp.buttoncount = 8
optgrp.caption = "Frame Caption"
optgrp.buttons(1).caption ="Change Request - Existing process"
optgrp.buttons(2).caption ="Change request - New Process "
optgrp.buttons(3).caption ="Deadlock Occurence"
optgrp.buttons(4).caption ="Inadequate Capacity"
optgrp.buttons(5).caption ="alerts/events exceeding defined threshold"
optgrp.buttons(6).caption ="Change RollBack"
optgrp.buttons(7).caption ="Urgent/ Emergency Change"
optgrp.buttons(8).caption ="Software upgrade"
optgrp.value = 1
gadget1.addobject(optgrp)
gadget1.addobject("butt1","mybutt")
butt1.caption = "Click Me"
return gadget1