Почему мое столкновение между картинными коробками не работает?

Question

Я создаю игру, в которой вы перепрыгиваете через красные блоки. Если вы попали в красный блок, вы умрете. Я сделал землю, где игрок может сидеть, но он продолжает падать через это.

Я не могу понять, в чем проблема. Может быть, это мой код кнопки, но я действительно думаю, что это мой код обнаружения столкновений. Имейте в виду, что моя программа обнаружения столкновений для работы с красными блоками. Это просто земля.

Код моей кнопки перехода:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Player.Top -= 100
    Animation.Start()
End Sub

Мое столкновение между землей и игроком:

Private Sub Animation_Tick(sender As Object, e As EventArgs) Handles Animation.Tick
    If Player.Bounds.IntersectsWith(Ground.Bounds) Then
        Animation.Stop()
    Else
        Player.Top += 10
    End If
End Sub

У меня нет сообщений об ошибках, я просто ожидал, что он останется на земле и не провалится.