Friend TextArray(500) As TextBox
 
Public Sub AddLabelleer(ByVal x As Double, ByVal y As Double, ByVal w As _
  Double, ByVal h As Double, ByVal farbe$, ByVal sindex As Double, ByVal i As _
  Integer)
 
Me.TextArray(i) = New TextBox
AddHandler TextArray(i).KeyDown, AddressOf TextArray_keyDown
With Me.TextArray(i)
   .Location = New Point(x, y)
   .Enabled = True
   .Size = New Size(w, h)
   .BorderStyle = BorderStyle.None
   .BackColor = Color.FromName(farbe)
   If farbe = "red" Then
      .Enabled = False
   End If
End With
TabControl1.TabPages(sindex).Controls.Add(Me.TextArray(i))
End Sub
 
Private Sub TextArray_keyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs)
 
Dim TextArray_keyDown As TextBox = sender
   If e.KeyCode = Keys.Enter Then
      '...
   End If
End Sub