Visual Basic.NET - MOVER UN PICTUREBOX CON LAS FLECHAS DEL TECLADO

Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.KeyPreview = True

End Sub

Private Sub Login_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        Select Case e.KeyCode

            Case Keys.Up

                Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X, Me.PictureBox1.Location.Y - 10)

            Case Keys.Down

                Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X, Me.PictureBox1.Location.Y + 10)

            Case Keys.Left

                Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X - 10, Me.PictureBox1.Location.Y)

            Case Keys.Right

                Me.PictureBox1.Location = New Point(Me.PictureBox1.Location.X + 10, Me.PictureBox1.Location.Y)

        End Select

End Sub

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        End Class

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If PictureBox1.Left < 1000 Then

            PictureBox1.Left = PictureBox1.Left + 100

        Else

            PictureBox1.Left = -1000

        End If

    End Sub

  End Class

tecla = Asc(e.KeyChar)

        If tecla = 97 Then

            w = 1

        End If

        If tecla = 100 Then

            w = 2

        End If

        If tecla = 119 Then

            w = 3

        End If

        If tecla = 115 Then

            w = 4

        End If

If w = 1 Then

                Call iz()

            End If

            If w = 3 Then

                Call ar()

            End If

            If w = 4 Then

                Call ab()

            End If

            If w = 2 Then

                Call de()

            End If

Sub iz()

        If (p <= d And p > 0) Then

            a(t, p) = " "

            i(t, p) = camino

            p = p - 1

            If a(t, p) = "p" Then

                p = p + 1

            End If

            If (a(t, p) = "*") Then

                b = b + 1

                My.Computer.Audio.Play("c:fruiteat.wav")

            End If

            If (a(t, p) = "c") Then

                My.Computer.Audio.Play("c:GHOSTEATEN.wav")

                b = b + 1

            End If

            If (t = 14 And p = 0) Then

                a(t, p) = ""

                i(t, p) = camino

                p = 26

                a(t, p) = "x"

                Call act2()

            End If

            Call matap()

            If b >= 294 Then

                ele = ele + 1

                Timer4.Enabled = False

                If ele = 4 Then

                    MsgBox("felicidades pasastes todos los niveles")

                    My.Computer.Audio.Play("c:extrapac.wav")

                Else

                    MsgBox("PASASTES AL NIVEL" + Str(ele))

                     Call ini()

                    Call ini2()

                    Call act2()

                    b = 0

                End If

            End If

            a(t, p) = "X"

            TextBox1.Text = Str(b)

        End If

        Call act2()

    End Sub