creating and textboxes in ecxcel vba during runtime

Hi. i am trying to create textboxes during runtime, and then naming them.

I have managed to create a single textbox during runtime, however, i cant seem to name it.

what i am trying to do is to create a number of textboxes during runtime, and name them each differently, so i can store values into them.

For i = 0 To 5

Set txtB1 = Controls.Add("Forms.TextBox.1")
txtB1.Name = "chkDemo(i)" ' after assigning name to txtB1, i couldnt seem to include values for the new name
chkDemo(i) = "hihi" ' error appears on this line

I would like to be able to create dynamic textboxes during runtime with each textbox name increasing in value with reference to the for loop.

TextBox1,TextBox2,TextBox3 etc

Add TextBox at runtime


There is no need to name TextBox controls when you create them. By default the first created TextBox is named TextBox1, the second one will be TextBox2, and so on.

The following example create five TextBox controls and store values into them:

' ************************* ' ************************* '

Sub AddTxtBoxAtRuntime()

    Dim i As Integer
    Dim oTxtBox As Control

    For i = 1 To 5
        Set oTxtBox = Me.Controls.Add("Forms.TextBox.1")

        With oTxtBox
            .Left = 5
            .Top = (.Height * (i - 1)) + (5 * i)
            .Text = "Hello-" & i
        End With
    Next i

    Set oTxtBox = Nothing

End Sub

' ************************* ' ************************* '


And here is what the above subroutine do:


Best regards.