Private Sub Form1_KeyUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
Select Case e.KeyCode
Case Keys.Left
PictureBox1.Left -= 1
Case Keys.Right
PictureBox1.Left += 1
Case Keys.Up
PictureBox1.Top -= 1
Case Keys.Down
PictureBox1.Top += 1
End Select
End Sub