Dim txLay() As TextBox
Dim fiTX As Integer                      'Lfd.Nummer der Dynamischen Labelfelder

Private Sub Layout_Feld_erzeugen()
  ReDim Preserve txLay(fiTX)        'Array erweitern
  txLay(fiTX) = New TextBox         'Neues Label erzeugen
 
  'Den erzeugten Button verwenden:
  With txLay(fiTX)      
     .Parent = TXLayoutS1               'Parent festlegen
     .Parent.Controls.Add(txLay(fiTX))  'Control Collection erweitern
 
         'Verwaltungsinformationen zuweisen:
      .Name = "txLay" & fiTX.ToString
      .TabIndex = fiTX
      .Tag = fiTX
 
      .AutoSize = True
 
         'Holen der Breite des Feldes aus der Datenbank
       Dim Anz As Integer = modData.ppr_DataTable_Laenge_vk(fiTX)
 
       Dim TE As String 
       Dim ch As Char = "m"c
 
    'String ist je nach Anzahl unterschiedlich lang => 
       TE = TE & TE.PadRight(Anz, ch)
 
      Dim Breite As Integer = .Width       'Abfragen der Breite der Textbox   
 
       .Text = TE                           'Zuweisen des Textes an die 
       ' TextBox
 
[u] ' ==> trozdem ist immer die gleiche .Width angegeben - anhand des 
' Textes ändert sich die
       ' Weite der Textbox nicht!!!  
 
       Breite = .Width                      'Abfragen der Breite der Textbox   
 
       'Positionierung des Labels
       Dim MousePos As Point
 
       MousePos = TXLayoutS1.PointToClient(Windows.Forms.Cursor.Position)
       .Left = TXLayoutS1.PointToClient(Windows.Forms.Cursor.Position).X
       .Top = TXLayoutS1.PointToClient(Windows.Forms.Cursor.Position).Y
 
       .Visible = True
       .BorderStyle = BorderStyle.Fixed3D
 
      'Ereignisse des Labels
     AddHandler .Click, AddressOf txLay_Click
     AddHandler .Enter, AddressOf txLay_Enter
     AddHandler .Leave, AddressOf txLay_Leave
     AddHandler .PreviewKeyDown, AddressOf txLay_PreviewKeyDown
 
     'ADDHANDLER zum Verschieben des Steuerelements ( 
     ' MouseMove/MouseDOWN/MouseUP)
     AddHandler .MouseMove, AddressOf txLay_MouseMove
     AddHandler .MouseDown, AddressOf txLay_MouseDown
     AddHandler .MouseUp, AddressOf txLay_MouseUp
  End With
End Sub