Hi guys,
I need some help *again*. This time with Collision
here is the code i use but it does not work.

So i hope some can help me with this.
The test Array
Dim testArray(,) As Integer = { _
{0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0}, _
{0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, _
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
{0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0}, _
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
{0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0}, _
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}