Question

VB，用当在第一个文本框里输入如下文字，并选中部分内容，然后单击复制按钮，便会自动复制到第二个文本框

VB，用当在第一个文本框里输入如下文字，并选中部分内容，然后单击复制按钮，便会自动复制到第二个文本框

图1：在第一个文本框中录入完文字并选中要复制的文字

图2：单击完复制按钮后的效果
如果单击清除按钮，则两个文本框里面的内容全部清空。
求代码！！！！！！！！！！！！！！！！！！！！！！！不要太复杂了

这是图一





Answer 1

Private Sub Command1_Click() '复制
Text2.SelText = Text1.SelText
End Sub

Private Sub Command2_Click() '清除
Text1.Text = ""
Text2.Text = ""
End Sub