
Private Sub UserForm_Initialize()
Dim TBarray(0 To 5) As Control
Dim i As Integer
Dim intTop As Integer
intTop = 0
For i = 0 To 5
Set TBarray(i) = Controls.Add("Forms.TextBox.1", "TextBox" & i)
TBarray(i).Top = intTop + 20
TBarray(i).Text = "Name: " & TBarray(i).Name
intTop = intTop + 20
Next i
For r = 1 To 5
Cells(r + 1, 1) = TBarray(r).Text
Next
End Sub |
