While True
            Dim Retval, Retval2 As Long
            Retval = GetAsyncKeyState(VK_LEFT)
            Retval2 = GetAsyncKeyState(VK_RIGHT)
            If CBool(Retval And &H8000) Then
                PictureBox1.Location = New Point(PictureBox1.Location.X - 2,                                   PictureBox1.Location.Y)

            ElseIf CBool(Retval2 And &H8000) Then
                PictureBox1.Location = New Point(PictureBox1.Location.X + 2, PictureBox1.Location.Y)
            End If
            Thread.Sleep(speed)
        End While