五个TEXTBOX的内容复制,该怎么解决

五个TEXTBOX的内容复制
分别的   TEXTBOX1＝A：TEXTBOX2＝B：TEXTBOX3＝C：TEXTBOX4＝D：TEXTBOX5＝E
              TEXTBOX1＝B：TEXTBOX2＝C：TEXTBOX3＝D：TEXTBOX4＝E：TEXTBOX5＝“”  
              TEXTBOX1＝C：TEXTBOX2＝D：TEXTBOX3＝E：TEXTBOX4＝“”：TEXTBOX5＝“”
              TEXTBOX1＝D：TEXTBOX2＝E：TEXTBOX3＝“”：TEXTBOX4＝“”：TEXTBOX5＝“”
              TEXTBOX1＝E：TEXTBOX2＝“”：TEXTBOX3＝“”：TEXTBOX4＝“”：TEXTBOX5＝“”

我只会做到三个的交换内容
  Private   Sub   Button2_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button2.Click
           
                Dim   them   As   Integer
                them   =   TextBox2.Text

                TextBox2.Text   =   TextBox3.Text

                TextBox1.Text   =   them

请教各位VB高手代码应怎样写：谢谢

------解决方案--------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim midVar1 As String
Dim midVar2 As String

midVar1 = TextBox4.Text.Trim
TextBox4.Text=TextBox5.Text.Trim
midVar2=TextBox3.Text.Trim
TextBox3.Text=midVar1
midVar1=TextBox2.Text.Trim
TextBox2.Text=midVar2
TextBox1.Text=midVar1

End Sub
------解决方案--------------------
Dim TextBox(6) As TextBox
Dim i As Int32
Dim intRow As Int32 = 12
Dim intCol As Int32 = 12
Dim Button1 As Button

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i = 1 To 5
TextBox(i) = New TextBox
With TextBox(i)
.Left = intCol
.Top = intRow
End With
intRow += 30
Me.Controls.Add(TextBox(i))
Next
Button1 = New Button
With Button1
.Left = 12 + TextBox(1).Width + 12
.Top = 12
.Height = 21
.Text = "移动 "
AddHandler Button1.Click, AddressOf Button1_Click
End With
Me.Controls.Add(Button1)
Me.StartPosition = FormStartPosition.CenterScreen
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
For i = 1 To 5
If i = 5 Then
TextBox(i).Text = " "
Else
TextBox(i).Text = TextBox(i + 1).Text
End If
Next
End Sub
------解决方案--------------------
AA88665599() ( ) 信誉：100 Blog 2007-02-04 23:02:24 得分: 0
我用的是VB。NET，我试过，这方法不行

-------
呵呵~写漏了一句：
textbox1.text = textbox2.text
textbox2.text = textbox3.text
textbox3.text = textbox4.text
textbox4.text = textbox5.text
textbox5.text = " "
本来不想测试的~既然你说不行只好试试~我用VB.NET，测试没有问题。