Private Sub myTextbox0_KeyPress(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyPressEventArgs) _
    Handles myTextbox0.KeyPress
    If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
        Dim myTextBox As New TextBox
        Dim nummer As Integer
        nummer = sender.name.substring(sender.name.length - 1, 1) + 1
        myTextBox.Name = "myTextbox" & nummer
        myTextBox.Left = myTextbox0.Left
        myTextBox.Top = myTextbox0.Top + 20 * nummer
        AddHandler myTextBox.KeyPress, AddressOf myTextbox0_KeyPress
        myTextbox0.Parent.Controls.Add(myTextBox)
    End If
End Sub