Set fangkuai((cmd2(i).Left + cmd2(i).Width) / cmd2(i).Width, (cmd2(i).Top + cmd2(i).Height) / cmd2(i).Height) = cmd2(i)

Set fangkuai((cmd3(i).Left + cmd3(i).Width) / cmd3(i).Width, (cmd3(i).Top + cmd3(i).Height) / cmd3(i).Height) = cmd3(i)

Set fangkuai((cmd4(i).Left + cmd4(i).Width) / cmd4(i).Width, (cmd4(i).Top + cmd4(i).Height) / cmd4(i).Height) = cmd4(i)

Call panduan((cmd1(i).Top + cmd1(i).Height) / cmd1(i).Height)                    '判断是否应该消行

Call panduan((cmd2(i).Top + cmd2(i).Height) / cmd2(i).Height)

Call panduan((cmd3(i).Top + cmd3(i).Height) / cmd3(i).Height)

Call panduan((cmd4(i).Top + cmd4(i).Height) / cmd4(i).Height)

i = i + 1                    '加载下一个方块

Load cmd1(i)

Load cmd2(i)

Load cmd3(i)

Load cmd4(i)

cmd1(i).Visible = True

cmd2(i).Visible = True

cmd3(i).Visible = True

cmd4(i).Visible = True

cmd1(i).Move 900, 300           '初始化方块位置

cmd2(i).Move 900, 300

cmd3(i).Move 900, 300

cmd4(i).Move 900, 300

txjl = Int(Rnd * 7 + 1)       '随便加载一个图形形状

loadtx (txjl)

End If

End Sub

'当方块落下后，用二维数组fangkuai记录方块的名称属性