This is a code to load textbox:

Code:
Private Sub generate()
Randomize
a = film(Rnd * 4 + 1)
b = Len(a)
For i = 1 To Len(b)
Load Text1(i)
Text1(i).Visible = True
Text1(i).Left = Text1(i - 1).Left + 1000
Next
End Sub
But only 2 textbox r loading even if the value of b is 6 or 7 or 10.