[VBA Userform] How to loop through all frames on a userform

[smallxyz]

I can't find a Frames collection in userform. How to loop through all frames on a UF?

    Dim c As MSForms.Controls
    For Each c In UTool.[COLOR=#ff0000]Controls[/COLOR]
        If TypeName(c) = "Frame" Then
            c.BorderStyle = fmBorderStyleNone
        End If
    Next

Thanks a lot!

 

[wideboydixon]

And what's wrong with the code you posted? You do have to iterate through the controls on the form and check the type/name of each one. Is this code not working?

WBD

 

[smallxyz]

There is no such a command for c.BorderStyle = fmBorderStyleNone

This line work only if : Dim c As MSForms.Frame

However, there is no way to access to Frames collection, i.e. something like UTools.Frames

 

[wideboydixon]

Try this?

Dim c As MSForms.Control
Dim f As MSForms.Frame
For Each c In UTool.Controls
    If TypeName(c) = "Frame" Then
        Set f = c
        f.BorderStyle = fmBorderStyleNone
    End If
Next c

WBD

 

[RoryA]

The only thing wrong with the initial code is that it should be:

Dim c As MSForms.Control

and not:

Dim c As MSForms.Controls

 

[wideboydixon]

The only thing wrong with the initial code is that it should be:

Dim c As MSForms.Control

and not:

Dim c As MSForms.Controls

Doh! How did I miss that? Well spotted

WBD

 

[smallxyz]

Thanks both. Charm a like Works!

 

[smallxyz]

wideboydixon, your code is sneaky. But works. Thanks.

 

[RoryA]

Doh! How did I miss that?

I must admit I completely overlooked it the first time and couldn't understand how the code could be failing!