Visual Basic.NET - Ayuda hacer que salte un PictureBox al presionar tecla del teclado

Private WithEvents timerSalto As New Timer With {.Enabled = False, .Interval = 50}

    Private totalUnidades As Integer = 0

    Private unidadesActuales As Integer = 0

    Private salto As estadoSalto = estadoSalto.Terminado

    Private Enum estadoSalto

        Subiendo

        Bajando

        Terminado

    End Enum

    Private Enum unidadesSalto

        Cincuenta

        Cien

        CientoCincuenta

        Doscientos

    End Enum

    Private Sub timerSalto_Tick() Handles timerSalto.Tick

        Select Case salto

            Case estadoSalto.Bajando

                unidadesActuales = unidadesActuales - 10

                Dim localizacionX As Integer = tuPictureBox.Location.X

                Dim localizacionY As Integer = tuPictureBox.Location.Y + 10

                tuPictureBox.Location = New Point(localizacionX, localizacionY)

                If unidadesActuales = 0 Then

                    salto = estadoSalto.Terminado

                End If

            Case estadoSalto.Subiendo

                unidadesActuales = unidadesActuales - 10

                Dim localizacionX As Integer = tuPictureBox.Location.X

                Dim localizacionY As Integer = tuPictureBox.Location.Y - 10

                tuPictureBox.Location = New Point(localizacionX, localizacionY)

                If unidadesActuales = 0 Then

                    unidadesActuales = totalUnidades

                    salto = estadoSalto.Bajando

                End If

            Case estadoSalto.Terminado

                timerSalto.Stop()

        End Select

    End Sub

    Private Sub saltoFigura(unidades As unidadesSalto)

        Select Case unidades

            Case unidadesSalto.Cien

                totalUnidades = 100

                unidadesActuales = 100

            Case unidadesSalto.CientoCincuenta

                totalUnidades = 150

                unidadesActuales = 150

            Case unidadesSalto.Cincuenta

                totalUnidades = 50

                unidadesActuales = 50

            Case unidadesSalto.Doscientos

                totalUnidades = 200

                unidadesActuales = 200

        End Select

        salto = estadoSalto.Subiendo

        timerSalto.Start()

    End Sub

Private Sub tuForm_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.Space Then

            If salto = estadoSalto.Terminado Then

                saltoFigura(unidadesSalto.CientoCincuenta)

            End If

        End If

    End Sub