VB.NET Textbox内容写入listbox不按回车符分行时！

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

With ListBox1

.Items.Clear()

For Each hs In TextBox1.Lines

.Items.Add(hs.ToString)

Next

End With

End Sub