Create Textbox in run time problem

[brown monkey]

this?

Dim t(2) As TextBox
   Sub wahehehe()
      Dim i As Integer
      Dim y As Integer = 20
      For i = 0 To 2
         t(i) = New TextBox()
         t(i).Location = New Point(10, y)
         t(i).ReadOnly = True
         t(i).Name = "textbox" & i.ToString
         t(i).Text = t(i).Name
         Me.Controls.Add(t(i))
         AddHandler t(i).KeyDown, AddressOf hahaha
         y += 22
      Next
   End Sub
 
   Sub hahaha(ByVal sender As Object, ByVal e As KeyEventArgs)
      Dim c As TextBox = sender
      MessageBox.Show(c.Text)
   End Sub