vb动态建立的TEXTBOX怎么执行某些命令

Private Text(10) As Object

Private Sub Form_Load()

Dim mm As Integer
For mm = 1 To 10
Set Text(mm) = Me.Controls.Add("vb.textbox", "Text" & Trim(Str(mm)), Me)
next mm
end sub

以下代码无反应啊，请问一下这是怎么回事
Private Sub Text_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
print text(index).index
sub

Private WithEvents Text(10) As TextBox