vb.net 把RichTextBox移進ListBox [RichTextBox copy to ListBox]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.AddRange(RichTextBox1.Lines)
    End Sub