richtextbox1怎么才能选中多行？一点击“>>”按钮，可以将选中的项目显示到另外的richtextbox2？

Question

richtextbox1怎么才能选中多行？
一点击“>>”按钮，可以将选中的项目显示到另外的richtextbox？
并将刚才选中的项目从richtextbox1删除谢谢先

Answer 1

Private Sub Command1_Click()
RichTextBox2.Text = RichTextBox1.SelTextEnd Sub

Answer 2

Private Sub Command1_Click()
RichTextBox2.Text = RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub

Answer 3

谢谢大侠的指点！
我测试了，发现一个问题：
就是在RichTextBox1删除那一行的时候，后面的行没有往上移动，请问怎么搞定这个？
谢谢先，搞定结贴！