cmd2(i).Move cmd1(i).Left, cmd1(i).Height + cmd1(i).Top

cmd3(i).Move cmd2(i).Left, cmd2(i).Height + cmd2(i).Top

cmd4(i).Move cmd3(i).Left - cmd3(i).Width, cmd3(i).Top

Case 4

cmd2(i).Move cmd1(i).Left + cmd1(i).Width, cmd1(i).Top

cmd3(i).Move cmd2(i).Left + cmd2(i).Width, cmd1(i).Top

cmd4(i).Move cmd1(i).Left, cmd1(i).Top - cmd1(i).Width

End Select

End Sub

（5）Private Sub tx5(X As Integer)

Select Case X

Case 1

cmd2(i).Move cmd1(i).Left, cmd1(i).Height + cmd1(i).Top

cmd3(i).Move cmd1(i).Left + cmd1(i).Width, cmd2(i).Top

cmd4(i).Move cmd3(i).Left, cmd3(i).Height + cmd3(i).Top

Case 2

cmd2(i).Move cmd1(i).Left + cmd1(i).Width, cmd1(i).Top

cmd3(i).Move cmd1(i).Left, cmd1(i).Top + cmd1(i).Height

cmd4(i).Move cmd3(i).Left - cmd3(i).Width, cmd3(i).Top

Case 3

cmd2(i).Move cmd1(i).Left, cmd1(i).Height + cmd1(i).Top

cmd3(i).Move cmd1(i).Left + cmd1(i).Width, cmd2(i).Top

cmd4(i).Move cmd3(i).Left, cmd3(i).Height + cmd3(i).Top

Case 4

cmd2(i).Move cmd1(i).Left + cmd1(i).Width, cmd1(i).Top

cmd3(i).Move cmd1(i).Left, cmd1(i).Top + cmd1(i).Height

cmd4(i).Move cmd3(i).Left - cmd3(i).Width, cmd3(i).Top

End Select

End Sub

（6）Private Sub tx6(X As Integer)

Select Case X

Case 1

cmd2(i).Move cmd1(i).Left, cmd1(i).Height + cmd1(i).Top

cmd3(i).Move cmd1(i).Left - cmd1(i).Width, cmd2(i).Top

cmd4(i).Move cmd3(i).Left, cmd3(i).Height + cmd3(i).Top

Case 2