VB編程文本框控件中如何不借助第三個變量實現兩個文本框裏的數據交換？

Text1.Text = Text1.Text & Text2.Text

Text2.Text = Mid(Text1.Text, 1, Len(Text1.Text) - Len(Text2.Text))

Text1.Text = Mid(Text1.Text, Len(Text1.Text) - Len(Text2.Text), Len(Text1.Text))

End Sub