If num((cmd1(i).Left + cmd1(i).Width) / cmd1(i).Width + 1, (cmd1(i).Top + cmd1(i).Height) / cmd1(i).Height) = 0 And num((cmd2(i).Left + cmd2(i).Width) / cmd2(i).Width + 1, (cmd2(i).Top + cmd2(i).Height) / cmd2(i).Height) = 0 And num((cmd3(i).Left + cmd3(i).Width) / cmd3(i).Width + 1, (cmd3(i).Top + cmd1(i).Height) / cmd3(i).Height) = 0 And num((cmd4(i).Left + cmd4(i).Width) / cmd4(i).Width + 1, (cmd4(i).Top + cmd1(i).Height) / cmd4(i).Height) = 0 Then

cmd1(i).Move cmd1(i).Left + cmd1(i).Width

cmd2(i).Move cmd2(i).Left + cmd2(i).Width

cmd3(i).Move cmd3(i).Left + cmd3(i).Width

cmd4(i).Move cmd4(i).Left + cmd4(i).Width

End If

Case Asc(Form2.Text3.Text)

Timer1.Interval = 10

Case Asc(Form2.Text4.Text)                                    '图形的变形

If num(cmd1(i).Left / cmd1(i).Width, (cmd1(i).Top + cmd1(i).Height) / cmd1(i).Height) = 0 And num((cmd1(i).Left + cmd1(i).Width) / cmd1(i).Width + 1, (cmd1(i).Top + cmd1(i).Height) / cmd1(i).Height) = 0 And num((cmd1(i).Left + cmd1(i).Width) / cmd1(i).Width, (cmd1(i).Top + cmd1(i).Height) / cmd1(i).Height + 1) = 0 _

And num(cmd2(i).Left / cmd2(i).Width, (cmd2(i).Top + cmd2(i).Height) / cmd2(i).Height) = 0 And num((cmd2(i).Left + cmd2(i).Width) / cmd2(i).Width + 1, (cmd2(i).Top + cmd2(i).Height) / cmd2(i).Height) = 0 And num((cmd2(i).Left + cmd2(i).Width) / cmd2(i).Width, (cmd2(i).Top + cmd2(i).Height) / cmd1(i).Height + 1) = 0 _

And num(cmd3(i).Left / cmd3(i).Width, (cmd3(i).Top + cmd3(i).Height) / cmd3(i).Height) = 0 And num((cmd3(i).Left + cmd3(i).Width) / cmd3(i).Width + 1, (cmd3(i).Top + cmd3(i).Height) / cmd3(i).Height) = 0 And num((cmd3(i).Left + cmd3(i).Width) / cmd3(i).Width, (cmd3(i).Top + cmd3(i).Height) / cmd1(i).Height + 1) = 0 _

And num(cmd4(i).Left / cmd4(i).Width, (cmd4(i).Top + cmd4(i).Height) / cmd4(i).Height) = 0 And num((cmd4(i).Left + cmd4(i).Width) / cmd4(i).Width + 1, (cmd4(i).Top + cmd4(i).Height) / cmd4(i).Height) = 0 And num((cmd4(i).Left + cmd4(i).Width) / cmd4(i).Width, (cmd4(i).Top + cmd4(i).Height) / cmd1(i).Height + 1) = 0 Then