I would love to but don't have time. Here's a start though:
Create a grid of 10x20 squares.
It's automatically filled in with zeros. To place a block in any given location just enter a 1 (or you could even enter a 1 or 2 or 3 or 4 etc. to represent different colors).
Now to draw this to the screen you just use a For...Next loop.
Try to figure out where to go from there...
Create a grid of 10x20 squares.
Dim grid(10, 20)
It's automatically filled in with zeros. To place a block in any given location just enter a 1 (or you could even enter a 1 or 2 or 3 or 4 etc. to represent different colors).
grid(1,20) = 1 grid(2,20) = 3
Now to draw this to the screen you just use a For...Next loop.
For yiter = 1 to 20 For xiter = 1 to 10 If grid(xiter, yiter) > 0 Rect xiter*40, yiter*40, 39, 39 EndIf Next Next
Try to figure out where to go from there...