高手看看！为什么每次都是5个Textbox啊？

Dim MyTextBox(7) As TextBox
Private i, n As Integer
Private Sub Form_Load()
     For i = 1 To Int(7 * Rnd + 1)
         Set MyTextBox(i) = Controls.Add("VB.TextBox", "Text" & i)
         MyTextBox(i).Visible = True
         MyTextBox(i).Text = "1111111"
         MyTextBox(i).Left = (i - 1) * 1250
     Next
End Sub
谢谢！！