✔ Komischer Fehler

[Arster-Boy]

Bewegungsablauf

Hallo,
ich habe gerade ein bischen mit der Tastendruck und Location experiementiert und habe dies erstellt:

Public Class Form1
    Dim img1 As Image
    Dim y As Integer = 64
    Dim x As Integer = 64

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        img1 = Image.FromFile("..\..\Franz.bmp")
        PictureBox1.Image() = img1
        If Keys.A Then
            y = y + 0
            x = x + 3
            PictureBox1.Location = New Point(x, y)
        End If
    End Sub
End Class

Ich versuche durch einen Tastendruck(A), die PictureBox1 um 3 Pixel nach rechts zu verschieben.
Ich find den Fehler einfach nicht.
Ich bitte um Hilfe!
Ich benutze VB 2005.

 

[Konstantin Gross]

Du musst die Tasten auf der Form abfangen so fragst du die Taste nur einmalig beim Start ab!

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) 
'Dein Code
End Sub