4x4 Square Elimination Puzzle

[bplus]

The first time I encountered this one I just did it, tried to repeat and went brain dead.
   

Maybe someone can figure out the first few key moves?

replace BoardSetup call with call for this, boardsetup2

Code: (Select All)

Sub boardsetup2

    ReDim Board(3, 3)

    Board(0, 0) = -1: Board(1, 0) = -1: Board(2, 0) = -1: Board(3, 0) = -1

    Board(0, 1) = -1: Board(1, 1) = -1: Board(2, 1) = -1: Board(3, 1) = 1

    Board(0, 2) = 1: Board(1, 2) = 1: Board(2, 2) = 1: Board(3, 2) = 1

    Board(0, 3) = 1: Board(1, 3) = 1: Board(2, 3) = 1: Board(3, 3) = -1

End Sub

to practice.