Private Sub Command1_Click()
    Call ResetControls(Me, Frame1(0))
End Sub
 
Public Sub ResetControls(f As Form, fr As Frame)
    Dim TheControl As Control
 
    For Each TheControl In f
        If TypeOf TheControl Is OptionButton Then
            If TypeOf TheControl.Container Is Frame Then
                If TheControl.Container = fr Then
                    TheControl.Value = 0
                    Debug.Print TheControl.Container.Name, TheControl.Name
                End If
            End If
        End If
    Next
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1