picturebox1.location = picturebox1.location + 1 

 Private Sub Search_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Up Then
            'PictureBox1.Top -= 10
            MsgBox("Key Up Pressed")
        ElseIf e.KeyCode = Keys.Down Then
            'PictureBox1.Top += 10
            MsgBox("Key Top Pressed")
        ElseIf e.KeyCode = Keys.Left Then
            'PictureBox1.Left -= 10
            MsgBox("Key Left Pressed")
        ElseIf e.KeyCode = Keys.Right Then
            'PictureBox1.Left += 10
            MsgBox("Key Right Pressed")
        End If
    End Sub