Frame Kontrolü?

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki kod ile ekli dosyada bulunan userform1 deki frameleri kontrol edebiliyorum. Bu kod ile framelerde bulunan optionbuttonlardan her hangi birisi işaretli değilse boş olan framenin gözden geçirilmesi sağlanıyor.

Bu kodun revize edilerek, eğer frame10 daki optionbuttonlardan her hangi birisi işaretli ise diğer framelerin boş geçilebilmesini veya frame2 deki optionbuttonlardan herhangi birisi işaretli ise diğer framelerin boş geçilememesini sağlamak istiyorum.

Private Function FrameTest() As Boolean
Dim Kontrol As Control
Dim SeciliElemanVar As Boolean
Dim OptionButtonVar As Boolean
Dim eleman As Control

FrameTest = True

For Each Kontrol In Me.Controls
    If TypeName(Kontrol) = "Frame" Then
        SeciliElemanVar = False
        OptionButtonVar = False
        For Each eleman In Kontrol.Controls
         If TypeName(eleman) = "OptionButton" Then
            OptionButtonVar = True
            If eleman.Value = True Then
                SeciliElemanVar = True
                Exit For
            End If
         End If
        Next
        If Not SeciliElemanVar And OptionButtonVar Then
            FrameTest = False
            MsgBox Kontrol.Caption & " grubundan seçim yapınız"
            Exit Function
        End If
    End If
Next
End Function