Public Class Form1
 
    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
 
        If e.KeyCode = Keys.Up Then
 
            Player.Location = New Point(Player.Location.X, Player.Location.Y - _
              30)
            Player.Image = WindowsApplication1.My.Resources.Resources.PlayerOben
 
        End If
 
        If e.KeyCode = Keys.Down Then
 
            Player.Location = New Point(Player.Location.X, Player.Location.Y + _
              30)
            Player.Image = _
            WindowsApplication1.My.Resources.Resources.PlayerUnten
 
        End If
 
        If e.KeyCode = Keys.Left Then
 
            Player.Location = New Point(Player.Location.X - 30, _
              Player.Location.Y)
            Player.Image = _
            WindowsApplication1.My.Resources.Resources.PlayerLinks
 
        End If
 
        If e.KeyCode = Keys.Right Then
 
            Player.Location = New Point(Player.Location.X + 30, _
              Player.Location.Y)
            Player.Image = _
            WindowsApplication1.My.Resources.Resources.PlayerRechts
 
        End If
 
    End Sub
 
End Class