VBA动态添加OCX无法解决，求救

[zhang_pi]

好像不行

Public aa(5) As TextBox

Private Sub CommandButton1_Click()




Dim i, j, k As Integer
Load aa(1)
Load aa(2)
Load aa(3)
Load aa(4)
For i = 1 To 4



aa(i).Visible = True
aa(i).Height = 20
aa(i).Width = 100
aa(i).Top = 20 + i * 40
aa(i).Left = 20
aa(i).Text = "AA" & CStr(i)



'Me.Controls.Add aa(i)

Next i
End Sub

[jam021]

http://community.csdn.net/Expert/topic/5121/5121956.xml?temp=.3465082