Private Sub dynamic_Textbox(.......)
        Dim d_textbox As New TextBox
 
        d_textbox.AutoSize = False
        d_textbox.Width = ......
        d_textbox.Height = ...... ' Eigenschaften der Textbox definieren
....
....
        Me......Controls.Add(d_textbox)  'Textbox anzeigen
 
        AddHandler d_textbox.KeyPress, AddressOf d_textbox_keypress 'Eine 
        ' Ereignisprozedur definieren...(hier z.B. Keypress)
 
End Sub
 
'Aufruf der Ereignisprozedur
Private d_textbox_keypress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs)
        Dim d_textbox  As TextBox = CType(sender, TextBox) 'Übergabe des Senders
 
.
.
End sub