Gat Caption

[Middlemarch]

I want to get the label caption after clicking in an option group
I've typed it into each controls shortcut menu and get it back by

 Select Case Frame0
        Case 1
            Target = Option3.ShortcutMenuBar
        Case 2
            Target = Option5.ShortcutMenuBar
        Case 3
            Target = Option7.ShortcutMenuBar
        Case 4
            Target = Option9.ShortcutMenuBar
    End Select

But I have this nagging doubt this is stupid and I should not need Select Case ( or shortcutMenu)
Can I get the labels caption directly by clicking it's option button ?

[moke123]

try this after changing the option button name to one of yours

Me.Option15.Controls.Item(0).Caption

[Middlemarch]

Would I still need that instruction once for each Option button?
You cannot get the one clicked directly from the Frame ?

[June7]

If you name buttons to coincide with value they pass to frame, like Option1, Option2, then:

Me.Controls("Option" & Me.Frame0).Controls.Item(0).Caption

[Micron]

Not sure if I've interpreted that sentence but AFAIK, you cannot directly determine which option button in a group/frame is selected, so no.
You could code (perhaps a Select Case block) using the frame value to determine the chosen button.

Select Case Me.Frame1
  Case 1
     do something
  Case 2
     do something else
  Case...
End Select

Those "do somethings" would be to code as shown to get the caption.

[June7]

Micron, isn't OP already doing that? Think I provided an alternative.

What I don't understand is "typed into each controls shortcut menu"

[Micron]

Micron, isn't OP already doing that? Think I provided an alternative.

What I don't understand is "typed into each controls shortcut menu"

Well, I don't think so but since I don't understand that either, who knows? I'm saying get the "selected" control first by association with the frame value. I don't see what Target and shortcut menu has to do with that, but maybe it's because it's something I've never seen before. I have created shortcut menus (and the old style of menus) but this seems to be something else.

[Middlemarch]

I entered the control name into properties shortcut menu.
Then I could get it into variable 'Target" as per msg 1
But Junes suggestion worked great and now I don't need the select case.
Thank you.

[moke123]

You can also use a function to return the selected option button label, provided you use the default option button values (ie. 1,2,3,4, etc)

Function OGBLabel(fr As OptionGroup) As String
    Dim ctl As Control
    Dim strCaps As Variant

    For Each ctl In fr.Controls
        If ctl.ControlType = acOptionButton Then
            strCaps = strCaps & ctl.Controls.Item(0).Caption & ","
        End If
    Next

    strCaps = Left(strCaps, Len(strCaps) - 1)

    OGBLabel = Split(strCaps, ",")(fr.value - 1)

End Function