Private Sub Command1_Click() '复制Text2.SelText = Text1.SelTextEnd SubPrivate Sub Command2_Click() '清除Text1.Text = ""Text2.Text = ""End Sub