If (txjl = 3 Or txjl = 4 Or txjl = 6) And cmd1(i).Left > Frame1.Width - 3 * cmd1(i).Width Then

cmd1(i).Left = Frame1.Width - 3 * cmd1(i).Width

Call bh

ElseIf txjl = 1 And cmd1(i).Left > Frame1.Width - 4 * cmd1(i).Width Then

cmd1(i).Left = Frame1.Width - 4 * cmd1(i).Width

Call bh

Else

Call bh

End If

End If

End Select

End Sub

'用二维数组中的变量值是否大于0来控制方块是否可以移动，变形（设计关键2和3）；快速下落是通过改变timer控件的毫秒数来实现的。

Private Sub bh()

If bhtx < 4 Then

bhtx = bhtx + 1

loadtx (txjl)

Else

bhtx = 1

loadtx (txjl)

End If

End Sub

'同一图形的四种不同变换代码