動態新增TextBox陣列(編號：4309)

請問一下我如要動態新增TextBox陣列卻出現此屬性為唯讀，不知該如何解決???
Private Sub Command1_Click()
Dim Txt As TextBox
　　Set Txt = Controls.Add("VB.TextBox", "TextBox1")
　　Txt.Visible = True
　　Txt.Index=0
　　Txt.Width = 3000
　　Txt.Height = 3000

End Sub