如何動態新增 物件陣列(編號：2210)

Dim a as Object
set a=Controls.Add("vb.textbox","text1")
用此方法可新增一個TextBox
但是如果是物件陣列又如何呢？
Dim a() as Object
redim a(9)
for i=0 to 9
set a(i)=Controls.Add("vb.textbox","text1")
next i
這樣寫出現了程式已有text1這個物件的訊息
何解??????