Question

VB 命令按钮能使TEXT1中被选中的文本复制到TEXT2中，每复制一次单独成为一行（换行的系统常量是VBCRLF）

这个怎么写代码？

Answer 1

Private Sub Command1_Click()
Text2 = Text2 & Text1.SelText & vbCrLf
End Sub