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

（3）Private Sub tx3(X As Integer)

Select Case X

Case 1

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, cmd1(i).Top

Case 2

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 cmd3(i).Left, cmd1(i).Top - cmd1(i).Height

Case 3

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

（4）Private Sub tx4(X As Integer)

Select Case X

Case 1

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, cmd1(i).Top

Case 2

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 cmd3(i).Left, cmd1(i).Top + cmd1(i).Height

Case 3