Public Sub ResetControls(F As Form)
    Dim TheControl As Control
 
    For Each TheControl In F
        If TypeOf TheControl Is OptionButton Then
           If TheControl.Container.Name = "Frame1" Then
                TheControl.Value = 0
           End If
        End If
    Next
End Sub

Gru? Michi aus Hannover

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