请问在visio的二次开发环境VB怎样实现动态文本框的生成？
0
悬赏园豆：20
[待解决问题]
很奇怪，一段同样的程序，功能是动态文本框的生成，放在纯VB环境中，可以运行，但放在visio二次VB开发环境中，就显示是无效的类别字符串，程序是这样的：
Dim a As TextBox
Dim i As Integer
For i = 0 To 3
Set a = form.Controls.Add("VB.TextBox", "Text" & i)
a.Visible = True
a.Move 3000, i * 400, 1000, 300
a.Text = "Text" & i
Next
请问这是怎么回事？而且VBA里的文本框没有index属性。
