Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Button3_Click(Nothing, Nothing)
        Me.Close()
End Sub
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form5.Show()
    End Sub

Public Class Form5

    Private _CoordonneesActuelles As Point = Me.Panel1.Location
    Private _Taille As Size = Me.Panel1.Size

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Form3.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Button4.Visible = False
        Me.Button2.Visible = False
    End Sub

    Function Avance(ByVal objetAdéplace As Point)
        objetAdéplace = _CoordonneesActuelles.X + _PasX()
        Return objetAdéplace
    End Function

    Function Recule(ByVal objet As Point)
        objet = _CoordonneesActuelles.X - _PasX()
        Return objet
    End Function

    Function Monte(ByVal objet As Point)
        objet = _CoordonneesActuelles.Y - _PasY()
        Return objet
    End Function

    Function Descend(ByVal objet As Point)
        objet = _CoordonneesActuelles.Y + _PasY()
        Return objet
    End Function

    Sub Form5_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.Z
                Monte(Me.Panel1.Location)
            Case Keys.S
                Descend(Me.Panel1.Location)
            Case Keys.Q
                Recule(Me.Panel1.Location)
            Case Keys.D
                Avance(Me.Panel1.Location)
        End Select
        'Me.Panel1.Location
    End Sub

    Function _PasX()
        Return _Taille.Width
    End Function

    Function _PasY()
        Return _Taille.Height
    End Function

End Class