Loop through labels in a frame

[sharky12345]

I'm trying to work out how to loop through all labels contained in a frame on a userform.

I currently have this:

For i = 3 To 10
Me.Controls("Frameobject" & i).Enabled = False
Me.Controls("textrationale" & i).Enabled = False
Me.Controls("textrationale" & i).Value = ""
Next
Exit Sub
End If

What I need to add, and what I am struggling to work out, is how to loop through all labels within the frame and disable them. There are a lot of labels in each frame so want to avoid having to list each one and disable it, which I know I can do as a last resort.

Thank you!

 

[davesexcel]

Loop through the controls in the frame

Private Sub CommandButton1_Click()
    Dim Ctrl As Control
    For Each Ctrl In UserForm1.Frame1.Controls
        If TypeOf Ctrl Is MSForms.Label Then
            With Ctrl
                .Caption = "yep"
                .Enabled = False
            End With
        End If
    Next Ctrl
End Sub

 

[sharky12345]

Dave, thanks - how can I apply it to the specific frame that is being referenced in the loop though, rather than having to specify by name which Frame?

 

[davesexcel]

Loop through frames and loop through controls in frame

Private Sub CommandButton1_Click()
    Dim fm As Integer
    Dim ctrl As Integer
    For fm = 0 To Me.Controls.Count - 1
        If TypeOf Me.Controls(fm) Is msforms.Frame Then
            For ctrl = 0 To Me.Controls(fm).Controls.Count - 1
                If TypeOf Me.Controls(fm).Controls(ctrl) Is msforms.Label Then
                    With Me.Controls(fm).Controls(ctrl)
                        .Caption = "Disabled"
                        .Enabled = False
                    End With
                End If
            Next ctrl
        End If
    Next fm
End Sub

 

[sharky12345]

Perfect - thanks...