It started to do Russia in these two days, and it is more complicated in these days.
Here, several variations of the block are implemented, and the movement of the square key is controlled.
Sub new_block (INTTYPE AS INTEGER) SELECT CASE INTTYPE CASE 1 Block (0) .left = block (0) .width * 0 block (0) .top = block (0) .height * 0 block (1) .left = block (0) .width * 1 block (1) .top = block (0) .height * 0 block (2) .left = block (0) .width * 2 block (2) .top = block (0) .height * 0 block (3) .width * 3 block (3) .top = block (0) .height * 0 case 2 block (0) .left = block (0) .width * 0 block (0) .top = block (0) .height * 0 Block (1) .left = block (0) .width * 1 block (1) .top = block (0) .height * 0 block (2) .left = block (0) .width * 0 block (2) .top = block (0) .height * 1 block (3) .left = block (0) .width * 1 block (3) .top = block (0) .Height * 1 case 3 block (0) .width * 1 block (0) .top = block (0) .height * 0 block (1) .left = block (0) .width * 0 block (1) .top = block (0) .height * 1 block (2) .left = block (0) .width * 1 block (2) .top = block (0). Height * 1 Block (3) .left = block (0) .width * 2 block (3) .top = block (0) .height * 1 Case Else Block (0) .left = block (0) .width * 0 Block (0) .top = block (0) .height * 0 Block (1) .left = block (0) .width * 1 block (1) .top = block (0) .height * 0 Block (2). Left = block (0) .width * 2 block (2) .top = block (0) .height * 0 block (3) .left = block (0) .width * 3 block (3) .top = block (0 ) .Height * 0 End Select Dim i as integer for i = 0 to 3 block (i) .visible =