Как прочесть свойства множества контролов? - VB

Формулировка задачи:

На форме есть 10 OptionButton.

Как пройтись по всем этим контролам, чтобы узнать какой из них установлен?

Можно ли это сделать примерно по такому образу:

Dim SelectedOption as OptionButton
 
For Each ? in ?
   If ?.Value = 1 Then Set SelectedOption = ?
Next

На форме 10 кнопок.

Необходимо при наведении на какую-либо кнопку изменять цвет её Caption. Как сделать это без создания события MouseMove для каждой кнопки?

Решение задачи: «Как прочесть свойства множества контролов?»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Dim Ctl     As Control
    Dim OptB    As OptionButton
    
    For Each Ctl In Me.Controls
        If TypeName(Ctl) = "OptionButton" Then
            Set OptB = Ctl
            Debug.Print "Source: " & OptB.Name
            Debug.Print "Data  : " & OptB.Value
        End If
    Next Ctl
    
    Set OptB = Nothing
    Set Ctl = Nothing
End Sub
                        