If col>3 AND row>3 Then
If aGrid(col,row,0)=aGrid(col-1,row,0) AND aGrid(col,row,0)=aGrid(col-1,row-1,0) Then
aDel(1,2)=True : aDel(1,1)=True
End If
If aGrid(col,row,0)=aGrid(col,row-1,0) AND aGrid(col,row,0)=aGrid(col-1,row-1,0) Then
aDel(2,1)=True : aDel(1,1)=True
End If
If aGrid(col,row,0)=aGrid(col,row-1,0) AND aGrid(col,row,0)=aGrid(col-1,row,0) Then
aDel(2,1)=True : aDel(1,2)=True
End If
End If
'Tests 5-6-17
If col<12 AND row<12 Then
If aGrid(col,row,0)=aGrid(col+1,row,0) AND aGrid(col,row,0)=aGrid(col+1,row+1,0) Then
aDel(3,2)=True : aDel(3,3)=True
End If
If aGrid(col,row,0)=aGrid(col,row+1,0) AND aGrid(col,row,0)=aGrid(col+1,row+1,0) Then
aDel(2,3)=True : aDel(3,3)=True
End If
If aGrid(col,row,0)=aGrid(col,row+1,0) AND aGrid(col,row,0)=aGrid(col+1,row,0) Then
aDel(2,3)=True : aDel(3,2)=True
End If
End If