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
alternatif olarak aşağıdaki yöntem de denenebilir