At flytte en picturebox med piltasterne

Jeg mener at grundlæggende bare kan hentet koden fra VB6 og
få Visual Basis Net 2005 til at oversætte denne funktion,
skulle meget gerne automatisk åbens ved at åbens din gamle kode. Men, hvis du har slettet disse koder, er det det egneskaber som du skal have tag i. Dem med navnene Left og Top. Herudover skal du tillad computeren at sende taturmeddelse til formen - egenskaben KeyPresse til True. Koden kunne evt. se hvordan herud.

 Private Sub frmSoftwareOption_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        If e.KeyCode = Keys.Left Then PictureBox1.Left = PictureBox1.Left - 10
        If e.KeyCode = Keys.Right Then PictureBox1.Left = PictureBox1.Left + 10
        If e.KeyCode = Keys.Down Then PictureBox1.Top = PictureBox1.Top + 10
        If e.KeyCode = Keys.Up Then PictureBox1.Top = PictureBox1.Top - 10

    End Sub

MEN til forskilige fra fx VB6 skal du være opmærkesom på, om picturebox har indsæt fra fx en panel, TabControl, el. en tilsvarende kontrol, da picturebox i NET beregnes ude fra lag på lag teknoligen.

Mange tak.
Det virker perfekt.
Da jeg testede det, faldt jeg over en ting.
Hvordan laver man en såkaldt "mur", der gør at området man kan bevæge sig rundt i er begrænset?

Det nemt ved er tilføje en panel, og flyttet beregning til
et vaule. Men huske at panel skal tilføjse før picturebox bliver indsætte. (i kodeeksampel har panel navnet panel1)

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        Dim gLeft As Integer
        Dim gTop As Integer
        Dim mLeft As Integer
        Dim mTop As Integer


        mLeft = 10
        mTop = 10

        gLeft = Me.PictureBox1.Left
        gTop = Me.PictureBox1.Top

        If e.KeyCode = Keys.Left Then
            If (gLeft - mLeft) > 0 Then
                Me.PictureBox1.Left = Me.PictureBox1.Left - mLeft
            Else
                Me.PictureBox1.Left = 0
            End If
        End If

        If e.KeyCode = Keys.Right Then
            If (gLeft + mLeft) < (Me.Panel1.Width - Me.PictureBox1.Width) Then
                Me.PictureBox1.Left = Me.PictureBox1.Left + mLeft
            Else
                Me.PictureBox1.Left = Me.Panel1.Width - Me.PictureBox1.Width
            End If
        End If

        If e.KeyCode = Keys.Down Then
            If Me.PictureBox1.Top + mTop < (Me.Panel1.Height - Me.PictureBox1.Height) Then
                Me.PictureBox1.Top = Me.PictureBox1.Top + mTop
            Else
                Me.PictureBox1.Top = Me.Panel1.Height - Me.PictureBox1.Height
            End If
        End If

        If e.KeyCode = Keys.Up Then
            If Me.PictureBox1.Top - mTop > 0 Then
                Me.PictureBox1.Top = Me.PictureBox1.Top - mTop
            Else
                Me.PictureBox1.Top = 0
            End If
        End If

    End Sub