Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
' ...
#End Region
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Dim oPoint As Point = Me.PictureBox1.Location
        Const nWait As Integer = 1
        Const nSteps As Integer = 5
        Select Case e.KeyCode
            Case Keys.Left : oPoint.X -= nSteps
            Case Keys.Right : oPoint.X += nSteps
            Case Keys.Up : oPoint.Y -= nSteps
            Case Keys.Down : oPoint.Y += nSteps
            Case Else : Return
        End Select
        Me.PictureBox1.Location = oPoint
        System.Threading.Thread.Sleep(nWait * 1000)
        Application.DoEvents()
    End Sub
End Class