Userform Objects During Runtime

[raven1124]

Hello,

I just started learning how to create objects during runtime and I am currently having a problem with creating multiple frames horizontally and I can't seem to line them up properly as each frames has their own width. Can someone help me out with creating multiple frames considering that the first frame should start at "Left = 5" then move the next frame on its right without overlapping each other and with the right amount of margin?

Here's my initial code below:

For counter = 1 To 3

    Set extraFrame = Userform1.Controls.Add("Forms.Frame.1", "Frame" & counter, True)
         With extraFrame
            .Name = ""
            .Top = 20
            .Left = 5 * counter
            .Width = 100
            .Height = 25
        End With

Next counter

 

[Fluff]

Maybe

For Counter = 0 To 2

    Set extraFrame = UserForm1.Controls.Add("Forms.Frame.1", "Frame" & Counter, True)
         With extraFrame
            .name = ""
            .Top = 20
            .Left = 5 + 100 * Counter
            .Width = 100
            .Height = 25
        End With

Next Counter

 

[raven1124]

First of all, thank you!

I didn't thought about changing the counter to 0 considering the width value.

I have a follow up question, is there any changes to adjust the border in between frames?

 

[Fluff]

How about

            .Left = 5 + 105 * Counter