Public Class Form1
    Dim WithEvents Tb As New TextBox With {.Location = New Point(170, 10), _
      .Parent = Me}
    Dim WithEvents Lb As New ListBox With {.Size = New Size(150, 270), .Parent _
    = Me}
 
    Private Sub Tb_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Tb.KeyDown
        If e.KeyCode = Keys.Enter Then   'Bei Enter den Text
            Lb.Items.Add(Tb.Text)        'in die ListBox schreiben
            Tb.ResetText()               'nun noch den Text löschen
            e.SuppressKeyPress = True    'Enter-Beepton verhindern
        End If
    End Sub
End Class