alternatif olarak aşağıdaki yöntem de denenebilir

For Each ctl In Me.Çerçeve7.Controls

If ctl.ControlType = 105 Then If ctl.OptionValue = Me.Çerçeve7 Then Me.konu = ctl.Controls.Item(0).Caption

Next ctl