Etienne BAUDOUX

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX

-25%
Le deal à ne pas rater :
PC Portable Gamer 16,1” HP Victus 16 – 16 Go /512 Go
749.99 € 999.99 €
Voir le deal

3 participants

    Erreur inderterminé : encore une...

    gipse
    gipse
    Habitué
    Habitué


    Masculin Nombre de messages : 575
    Localisation : en face de mon voisin
    Emploi/loisirs : informatique, SZ
    Humeur : je suis heureux grace a SZ !
    Date d'inscription : 19/01/2011

    Erreur inderterminé : encore une... Empty Erreur inderterminé : encore une...

    Message par gipse Sam 30 Avr 2011 - 11:41

    Voila donc encore une erreur inderminée :
    Je précise que ca vient du fait que j'ai des fonction qui modifie des image de picturebox et ça déconne un peu mais comme je trouve pas le problème :
    Code:
    Last build the samedi 30 avril 2011 at 13:21

    Building failed : errors number: 8
    File code : D:\Programmes\Temp\Code.vb

    Project setting :
    Type : ApplicationWindows
    Debug : Classique
    FormStart : WindowsForm1.szw
    SplashScreen :
    Optimize : True
    ----------------------------------------------------------------
        3 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"C:\Documents and Settings\Max\Mes documents\Mes Projets SoftwareZator\GuerreGame\Bin\GuerreGame.manifest"'; non reconnue ignorée
        4 - Line 238, Column 0, Error BC40004 : withEvents variable 'Menu' est en conflit avec property 'Menu' dans la class 'Form' de base et doit donc être déclaré 'Shadows'.
        5 - Line 2431, Column 0, Error BC30452 : L'opérateur '=' n'est pas défini pour les types 'Object' et 'System.Drawing.Image'.
        6 - Line 2434, Column 0, Error BC30452 : L'opérateur '=' n'est pas défini pour les types 'Object' et 'System.Drawing.Image'.
        7 - Line 2445, Column 0, Error BC30452 : L'opérateur '=' n'est pas défini pour les types 'Object' et 'System.Drawing.Image'.
        8 - Line 2448, Column 0, Error BC30452 : L'opérateur '=' n'est pas défini pour les types 'Object' et 'System.Drawing.Image'.
        9 - Line 2459, Column 0, Error BC30452 : L'opérateur '=' n'est pas défini pour les types 'Object' et 'System.Drawing.Image'.
        10 - Line 2462, Column 0, Error BC30452 : L'opérateur '=' n'est pas défini pour les types 'Object' et 'System.Drawing.Image'.
    ----------------------------------------------------------------

    ' NOTE :
    ' TOUTES MODIFICATIONS APPORTEES A CE FICHIER CODE NE SERONT PAS PRISES EN COMPTE LORS DE LA REGENERATION DU PROJET.

    '------------------------------------------------------------------------------
    ' <auto-generated>
    '    Ce code a été généré par un outil.
    '    Version du runtime :2.0.50727.3620
    '
    '    Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
    '    le code est régénéré.
    ' </auto-generated>
    '------------------------------------------------------------------------------

    Option Strict Off
    Option Explicit On

    Imports System

    Imports System.ComponentModel

    Imports System.Windows.Forms

    <Assembly: Reflection.AssemblyTitle("GuerreGame")>
    <Assembly: Reflection.AssemblyDescription("")>
    <Assembly: Reflection.AssemblyCompany("")>
    <Assembly: Reflection.AssemblyProduct("")>
    <Assembly: Reflection.AssemblyCopyright("Copyright ©️ 2011")>
    <Assembly: Reflection.AssemblyTrademark("")>
    <Assembly: Reflection.AssemblyVersion("1.0.0.0")>
    <Assembly: Reflection.AssemblyFileVersion("1.0.0.0")>
    <Assembly: Runtime.InteropServices.ComVisible(True)>


    'Ce Namespace a été généré par SoftwareZator 2011 Edition Standard (2.0.0.0)
    Namespace GuerreGame
       
        Public Class WindowsForm1_f
            Inherits System.Windows.Forms.Form
           
            Public WithEvents pictureBox1 As System.Windows.Forms.PictureBox
           
            Public WithEvents label1 As System.Windows.Forms.Label
           
            Public WithEvents pictureBox2 As System.Windows.Forms.PictureBox
           
            Public WithEvents timer1 As System.Windows.Forms.Timer
           
            Public WithEvents pictureBox3 As System.Windows.Forms.PictureBox
           
            Public WithEvents pictureBox4 As System.Windows.Forms.PictureBox
           
            Public WithEvents progressBar1 As System.Windows.Forms.ProgressBar
           
            Public WithEvents progressBar2 As System.Windows.Forms.ProgressBar
           
            Public WithEvents components As System.ComponentModel.IContainer
           
            Public Sub New()
                MyBase.New
                Me.InitializeComponent
            End Sub
           
            Private Sub InitializeComponent()
                Me.components = New System.ComponentModel.Container
                Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm1_f))
                Me.pictureBox1 = New System.Windows.Forms.PictureBox
                Me.label1 = New System.Windows.Forms.Label
                Me.pictureBox2 = New System.Windows.Forms.PictureBox
                Me.timer1 = New System.Windows.Forms.Timer(Me.components)
                Me.pictureBox3 = New System.Windows.Forms.PictureBox
                Me.pictureBox4 = New System.Windows.Forms.PictureBox
                Me.progressBar1 = New System.Windows.Forms.ProgressBar
                Me.progressBar2 = New System.Windows.Forms.ProgressBar
                CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox2,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox3,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox4,System.ComponentModel.ISupportInitialize).BeginInit
                Me.SuspendLayout
                '
                'pictureBox1
                '
                Me.pictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
                Me.pictureBox1.ErrorImage = CType(resources.GetObject("pictureBox1.ErrorImage"),System.Drawing.Image)
                Me.pictureBox1.Image = CType(resources.GetObject("pictureBox1.Image"),System.Drawing.Image)
                Me.pictureBox1.InitialImage = CType(resources.GetObject("pictureBox1.InitialImage"),System.Drawing.Image)
                Me.pictureBox1.Location = New System.Drawing.Point(12, 526)
                Me.pictureBox1.Name = "pictureBox1"
                Me.pictureBox1.Size = New System.Drawing.Size(76, 45)
                Me.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox1.TabIndex = 0
                Me.pictureBox1.TabStop = false
                Me.pictureBox1.Visible = false
                '
                'label1
                '
                Me.label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
                Me.label1.Location = New System.Drawing.Point(94, 535)
                Me.label1.Name = "label1"
                Me.label1.Size = New System.Drawing.Size(115, 23)
                Me.label1.TabIndex = 1
                Me.label1.Text = "GipseProduction"
                '
                'pictureBox2
                '
                Me.pictureBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.pictureBox2.ErrorImage = CType(resources.GetObject("pictureBox2.ErrorImage"),System.Drawing.Image)
                Me.pictureBox2.Image = CType(resources.GetObject("pictureBox2.Image"),System.Drawing.Image)
                Me.pictureBox2.InitialImage = CType(resources.GetObject("pictureBox2.InitialImage"),System.Drawing.Image)
                Me.pictureBox2.Location = New System.Drawing.Point(731, 518)
                Me.pictureBox2.Name = "pictureBox2"
                Me.pictureBox2.Size = New System.Drawing.Size(99, 53)
                Me.pictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
                Me.pictureBox2.TabIndex = 0
                Me.pictureBox2.TabStop = false
                Me.pictureBox2.Visible = false
                '
                'timer1
                '
                Me.timer1.Interval = 4000
                '
                'pictureBox3
                '
                Me.pictureBox3.BackColor = System.Drawing.Color.Transparent
                Me.pictureBox3.ErrorImage = CType(resources.GetObject("pictureBox3.ErrorImage"),System.Drawing.Image)
                Me.pictureBox3.Image = CType(resources.GetObject("pictureBox3.Image"),System.Drawing.Image)
                Me.pictureBox3.InitialImage = CType(resources.GetObject("pictureBox3.InitialImage"),System.Drawing.Image)
                Me.pictureBox3.Location = New System.Drawing.Point(12, 12)
                Me.pictureBox3.Name = "pictureBox3"
                Me.pictureBox3.Size = New System.Drawing.Size(294, 127)
                Me.pictureBox3.TabIndex = 2
                Me.pictureBox3.TabStop = false
                Me.pictureBox3.Visible = false
                '
                'pictureBox4
                '
                Me.pictureBox4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.pictureBox4.BackColor = System.Drawing.Color.Transparent
                Me.pictureBox4.ErrorImage = CType(resources.GetObject("pictureBox4.ErrorImage"),System.Drawing.Image)
                Me.pictureBox4.Image = CType(resources.GetObject("pictureBox4.Image"),System.Drawing.Image)
                Me.pictureBox4.InitialImage = CType(resources.GetObject("pictureBox4.InitialImage"),System.Drawing.Image)
                Me.pictureBox4.Location = New System.Drawing.Point(521, 12)
                Me.pictureBox4.Name = "pictureBox4"
                Me.pictureBox4.Size = New System.Drawing.Size(293, 127)
                Me.pictureBox4.TabIndex = 2
                Me.pictureBox4.TabStop = false
                Me.pictureBox4.Visible = false
                '
                'progressBar1
                '
                Me.progressBar1.Location = New System.Drawing.Point(12, 145)
                Me.progressBar1.Name = "progressBar1"
                Me.progressBar1.Size = New System.Drawing.Size(293, 23)
                Me.progressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee
                Me.progressBar1.TabIndex = 3
                Me.progressBar1.Value = 5
                Me.progressBar1.Visible = false
                '
                'progressBar2
                '
                Me.progressBar2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.progressBar2.Location = New System.Drawing.Point(521, 145)
                Me.progressBar2.Name = "progressBar2"
                Me.progressBar2.Size = New System.Drawing.Size(293, 23)
                Me.progressBar2.Style = System.Windows.Forms.ProgressBarStyle.Marquee
                Me.progressBar2.TabIndex = 3
                Me.progressBar2.Value = 5
                Me.progressBar2.Visible = false
                '
                'WindowsForm1
                '
                Me.BackColor = System.Drawing.Color.Black
                Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"),System.Drawing.Image)
                Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
                Me.ClientSize = New System.Drawing.Size(842, 574)
                Me.Controls.Add(Me.progressBar1)
                Me.Controls.Add(Me.progressBar2)
                Me.Controls.Add(Me.pictureBox4)
                Me.Controls.Add(Me.pictureBox3)
                Me.Controls.Add(Me.label1)
                Me.Controls.Add(Me.pictureBox2)
                Me.Controls.Add(Me.pictureBox1)
                Me.DoubleBuffered = true
                Me.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
                Me.ForeColor = System.Drawing.Color.White
                Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
                Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
                Me.Name = "WindowsForm1"
                Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
                Me.Text = "Rally Of Road"
                Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
                CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox2,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox3,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox4,System.ComponentModel.ISupportInitialize).EndInit
                Me.ResumeLayout(false)
            End Sub
           
            <System.STAThreadAttribute()>  _
            Public Shared Sub Main()
                System.Windows.Forms.Application.EnableVisualStyles()
    If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5", "Version", Nothing) Is Nothing Then
    System.Windows.Forms.MessageBox.Show("The .Net Framework 3.5 was not found. GuerreGame can't start without it. Please install the .Net Framework 3.5 and try again.", "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    System.Diagnostics.Process.Start("http://www.microsoft.com/downloads/details.aspx?FamilyId=333325FD-AE52-4E35-B531-508D977D32A6&displaylang=fr")
    End
    End If
    My.Resources.Culture = Globalization.CultureInfo.InvariantCulture : My.Resources.Culture = My.Resources.Culture
    System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(False)
    For Each arg As String In System.Environment.GetCommandLineArgs
    If Not arg = System.Windows.Forms.Application.ExecutablePath Then
    Redim Preserve ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length) : ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length - 1) = arg
    End If
    Next
    System.Windows.Forms.Application.Run(New WindowsForm1_f)
            End Sub
        End Class
       
        Public Class WindowsForm2_f
            Inherits System.Windows.Forms.Form
           
            Public WithEvents tabControl1 As System.Windows.Forms.TabControl
           
            Public WithEvents Carte As System.Windows.Forms.TabPage
           
            Public WithEvents Magasin As System.Windows.Forms.TabPage
           
            Public WithEvents groupBox4 As System.Windows.Forms.GroupBox
           
            Public WithEvents groupBox3 As System.Windows.Forms.GroupBox
           
            Public WithEvents groupBox2 As System.Windows.Forms.GroupBox
           
            Public WithEvents groupBox1 As System.Windows.Forms.GroupBox
           
            Public WithEvents Garage As System.Windows.Forms.TabPage
           
            Public WithEvents Jeux_de_chance As System.Windows.Forms.TabPage
           
            Public WithEvents Menu As System.Windows.Forms.TabPage
           
            Public WithEvents label1 As System.Windows.Forms.Label
           
            Public WithEvents label2 As System.Windows.Forms.Label
           
            Public WithEvents label3 As System.Windows.Forms.Label
           
            Public WithEvents label4 As System.Windows.Forms.Label
           
            Public WithEvents label7 As System.Windows.Forms.Label
           
            Public WithEvents textBox1 As System.Windows.Forms.TextBox
           
            Public WithEvents label6 As System.Windows.Forms.Label
           
            Public WithEvents label5 As System.Windows.Forms.Label
           
            Public WithEvents pictureBox2 As System.Windows.Forms.PictureBox
           
            Public WithEvents pictureBox1 As System.Windows.Forms.PictureBox
           
            Public WithEvents button2 As System.Windows.Forms.Button
           
            Public WithEvents button1 As System.Windows.Forms.Button
           
            Public WithEvents label12 As System.Windows.Forms.Label
           
            Public WithEvents label11 As System.Windows.Forms.Label
           
            Public WithEvents label10 As System.Windows.Forms.Label
           
            Public WithEvents label13 As System.Windows.Forms.Label
           
            Public WithEvents label14 As System.Windows.Forms.Label
           
            Public WithEvents label9 As System.Windows.Forms.Label
           
            Public WithEvents label8 As System.Windows.Forms.Label
           
            Public WithEvents textBox19 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox7 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox18 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox5 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox22 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox31 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox28 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox23 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox17 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox3 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox30 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox27 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox24 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox16 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox10 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox29 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox15 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox26 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox6 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox14 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox9 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox13 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox8 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox21 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox12 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox4 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox20 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox11 As System.Windows.Forms.TextBox
           
            Public WithEvents textBox2 As System.Windows.Forms.TextBox
           
            Public WithEvents BoutonAcheter9 As System.Windows.Forms.Button
           
            Public WithEvents BoutonAcheter8 As System.Windows.Forms.Button
           
            Public WithEvents BoutonAcheter6 As System.Windows.Forms.Button
           
            Public WithEvents BoutonAcheter5 As System.Windows.Forms.Button
           
            Public WithEvents BoutonAcheter7 As System.Windows.Forms.Button
           
            Public WithEvents BoutonAcheter3 As System.Windows.Forms.Button
           
            Public WithEvents BoutonAcheter4 As System.Windows.Forms.Button
           
            Public WithEvents BoutonAcheter2 As System.Windows.Forms.Button
           
            Public WithEvents BoutonAcheter1 As System.Windows.Forms.Button
           
            Public WithEvents textBox25 As System.Windows.Forms.TextBox
           
            Public WithEvents button9 As System.Windows.Forms.Button
           
            Public WithEvents button10 As System.Windows.Forms.Button
           
            Public WithEvents button11 As System.Windows.Forms.Button
           
            Public WithEvents label15 As System.Windows.Forms.Label
           
            Public WithEvents label16 As System.Windows.Forms.Label
           
            Public WithEvents textBoxrenforcment As System.Windows.Forms.TextBox
           
            Public WithEvents textBoxmanovre As System.Windows.Forms.TextBox
           
            Public WithEvents textBoxvitesse As System.Windows.Forms.TextBox
           
            Public WithEvents button3 As System.Windows.Forms.Button
           
            Public WithEvents label17 As System.Windows.Forms.Label
           
            Public WithEvents label18 As System.Windows.Forms.Label
           
            Public WithEvents label20 As System.Windows.Forms.Label
           
            Public WithEvents pictureBox3 As System.Windows.Forms.PictureBox
           
            Public WithEvents label25 As System.Windows.Forms.Label
           
            Public WithEvents label23 As System.Windows.Forms.Label
           
            Public WithEvents label22 As System.Windows.Forms.Label
           
            Public WithEvents label21 As System.Windows.Forms.Label
           
            Public WithEvents groupBox5 As System.Windows.Forms.GroupBox
           
            Public WithEvents label19 As System.Windows.Forms.Label
           
            Public WithEvents pictureBox10 As System.Windows.Forms.PictureBox
           
            Public WithEvents pictureBox8 As System.Windows.Forms.PictureBox
           
            Public WithEvents pictureBox7 As System.Windows.Forms.PictureBox
           
            Public WithEvents pictureBox6 As System.Windows.Forms.PictureBox
           
            Public WithEvents pictureBox5 As System.Windows.Forms.PictureBox
           
            Public WithEvents pictureBox4 As System.Windows.Forms.PictureBox
           
            Public WithEvents label24 As System.Windows.Forms.Label
           
            Public WithEvents label33 As System.Windows.Forms.Label
           
            Public WithEvents label32 As System.Windows.Forms.Label
           
            Public WithEvents label31 As System.Windows.Forms.Label
           
            Public WithEvents label30 As System.Windows.Forms.Label
           
            Public WithEvents label29 As System.Windows.Forms.Label
           
            Public WithEvents label28 As System.Windows.Forms.Label
           
            Public WithEvents label27 As System.Windows.Forms.Label
           
            Public WithEvents label26 As System.Windows.Forms.Label
           
            Public WithEvents label34 As System.Windows.Forms.Label
           
            Public WithEvents pictureBox9 As System.Windows.Forms.PictureBox
           
            Public WithEvents timer1 As System.Windows.Forms.Timer
           
            Public WithEvents components As System.ComponentModel.IContainer
           
            Public Sub New()
                MyBase.New
                Me.InitializeComponent
            End Sub
           
            Private Sub InitializeComponent()
                Me.components = New System.ComponentModel.Container
                Dim resources As System.ComponentModel.ComponentResourceManager = New
    Alors je fait un double post car sinon mon message est trop grand et je peux pas l'envoyé...
    Voila merci Étienne par ce que je suis sur qu'il y a que lui qui trouvera. Peux être Lereparateurdepc enfin... Very Happy
    gipse
    gipse
    Habitué
    Habitué


    Masculin Nombre de messages : 575
    Localisation : en face de mon voisin
    Emploi/loisirs : informatique, SZ
    Humeur : je suis heureux grace a SZ !
    Date d'inscription : 19/01/2011

    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par gipse Sam 30 Avr 2011 - 11:45

    Donc voila la suite désoler....
    Code:
    System.ComponentModel.ComponentResourceManager(GetType(WindowsForm2_f))
                Me.tabControl1 = New System.Windows.Forms.TabControl
                Me.Carte = New System.Windows.Forms.TabPage
                Me.groupBox3 = New System.Windows.Forms.GroupBox
                Me.groupBox4 = New System.Windows.Forms.GroupBox
                Me.groupBox2 = New System.Windows.Forms.GroupBox
                Me.groupBox1 = New System.Windows.Forms.GroupBox
                Me.Magasin = New System.Windows.Forms.TabPage
                Me.label16 = New System.Windows.Forms.Label
                Me.BoutonAcheter9 = New System.Windows.Forms.Button
                Me.BoutonAcheter8 = New System.Windows.Forms.Button
                Me.BoutonAcheter6 = New System.Windows.Forms.Button
                Me.BoutonAcheter5 = New System.Windows.Forms.Button
                Me.BoutonAcheter7 = New System.Windows.Forms.Button
                Me.BoutonAcheter3 = New System.Windows.Forms.Button
                Me.BoutonAcheter4 = New System.Windows.Forms.Button
                Me.BoutonAcheter2 = New System.Windows.Forms.Button
                Me.BoutonAcheter1 = New System.Windows.Forms.Button
                Me.textBox19 = New System.Windows.Forms.TextBox
                Me.textBox7 = New System.Windows.Forms.TextBox
                Me.textBox18 = New System.Windows.Forms.TextBox
                Me.textBox5 = New System.Windows.Forms.TextBox
                Me.textBox22 = New System.Windows.Forms.TextBox
                Me.textBox31 = New System.Windows.Forms.TextBox
                Me.textBox28 = New System.Windows.Forms.TextBox
                Me.textBox23 = New System.Windows.Forms.TextBox
                Me.textBox17 = New System.Windows.Forms.TextBox
                Me.textBox3 = New System.Windows.Forms.TextBox
                Me.textBox30 = New System.Windows.Forms.TextBox
                Me.textBox27 = New System.Windows.Forms.TextBox
                Me.textBox24 = New System.Windows.Forms.TextBox
                Me.textBox16 = New System.Windows.Forms.TextBox
                Me.textBox10 = New System.Windows.Forms.TextBox
                Me.textBox29 = New System.Windows.Forms.TextBox
                Me.textBox15 = New System.Windows.Forms.TextBox
                Me.textBox26 = New System.Windows.Forms.TextBox
                Me.textBox6 = New System.Windows.Forms.TextBox
                Me.textBox25 = New System.Windows.Forms.TextBox
                Me.textBox14 = New System.Windows.Forms.TextBox
                Me.textBox9 = New System.Windows.Forms.TextBox
                Me.textBox13 = New System.Windows.Forms.TextBox
                Me.textBox8 = New System.Windows.Forms.TextBox
                Me.textBoxrenforcment = New System.Windows.Forms.TextBox
                Me.textBoxmanovre = New System.Windows.Forms.TextBox
                Me.textBoxvitesse = New System.Windows.Forms.TextBox
                Me.textBox21 = New System.Windows.Forms.TextBox
                Me.textBox12 = New System.Windows.Forms.TextBox
                Me.textBox4 = New System.Windows.Forms.TextBox
                Me.textBox20 = New System.Windows.Forms.TextBox
                Me.textBox11 = New System.Windows.Forms.TextBox
                Me.textBox2 = New System.Windows.Forms.TextBox
                Me.label12 = New System.Windows.Forms.Label
                Me.label11 = New System.Windows.Forms.Label
                Me.label10 = New System.Windows.Forms.Label
                Me.label13 = New System.Windows.Forms.Label
                Me.label14 = New System.Windows.Forms.Label
                Me.label9 = New System.Windows.Forms.Label
                Me.label8 = New System.Windows.Forms.Label
                Me.Garage = New System.Windows.Forms.TabPage
                Me.label33 = New System.Windows.Forms.Label
                Me.label32 = New System.Windows.Forms.Label
                Me.label24 = New System.Windows.Forms.Label
                Me.label34 = New System.Windows.Forms.Label
                Me.label31 = New System.Windows.Forms.Label
                Me.label25 = New System.Windows.Forms.Label
                Me.label30 = New System.Windows.Forms.Label
                Me.label23 = New System.Windows.Forms.Label
                Me.label22 = New System.Windows.Forms.Label
                Me.label21 = New System.Windows.Forms.Label
                Me.label20 = New System.Windows.Forms.Label
                Me.groupBox5 = New System.Windows.Forms.GroupBox
                Me.label29 = New System.Windows.Forms.Label
                Me.label28 = New System.Windows.Forms.Label
                Me.label27 = New System.Windows.Forms.Label
                Me.label26 = New System.Windows.Forms.Label
                Me.label19 = New System.Windows.Forms.Label
                Me.pictureBox3 = New System.Windows.Forms.PictureBox
                Me.pictureBox10 = New System.Windows.Forms.PictureBox
                Me.pictureBox8 = New System.Windows.Forms.PictureBox
                Me.pictureBox7 = New System.Windows.Forms.PictureBox
                Me.pictureBox6 = New System.Windows.Forms.PictureBox
                Me.pictureBox5 = New System.Windows.Forms.PictureBox
                Me.pictureBox4 = New System.Windows.Forms.PictureBox
                Me.label18 = New System.Windows.Forms.Label
                Me.Jeux_de_chance = New System.Windows.Forms.TabPage
                Me.Menu = New System.Windows.Forms.TabPage
                Me.button3 = New System.Windows.Forms.Button
                Me.label17 = New System.Windows.Forms.Label
                Me.label7 = New System.Windows.Forms.Label
                Me.textBox1 = New System.Windows.Forms.TextBox
                Me.label6 = New System.Windows.Forms.Label
                Me.label5 = New System.Windows.Forms.Label
                Me.pictureBox2 = New System.Windows.Forms.PictureBox
                Me.pictureBox1 = New System.Windows.Forms.PictureBox
                Me.button2 = New System.Windows.Forms.Button
                Me.button1 = New System.Windows.Forms.Button
                Me.label1 = New System.Windows.Forms.Label
                Me.label2 = New System.Windows.Forms.Label
                Me.label3 = New System.Windows.Forms.Label
                Me.label4 = New System.Windows.Forms.Label
                Me.button9 = New System.Windows.Forms.Button
                Me.button10 = New System.Windows.Forms.Button
                Me.button11 = New System.Windows.Forms.Button
                Me.label15 = New System.Windows.Forms.Label
                Me.timer1 = New System.Windows.Forms.Timer(Me.components)
                Me.pictureBox9 = New System.Windows.Forms.PictureBox
                Me.tabControl1.SuspendLayout
                Me.Carte.SuspendLayout
                Me.Magasin.SuspendLayout
                Me.Garage.SuspendLayout
                Me.groupBox5.SuspendLayout
                CType(Me.pictureBox3,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox10,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox8,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox7,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox6,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox5,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox4,System.ComponentModel.ISupportInitialize).BeginInit
                Me.Menu.SuspendLayout
                CType(Me.pictureBox2,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).BeginInit
                CType(Me.pictureBox9,System.ComponentModel.ISupportInitialize).BeginInit
                Me.SuspendLayout
                '
                'tabControl1
                '
                Me.tabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom)  _
                            Or System.Windows.Forms.AnchorStyles.Left)  _
                            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.tabControl1.Controls.Add(Me.Carte)
                Me.tabControl1.Controls.Add(Me.Magasin)
                Me.tabControl1.Controls.Add(Me.Garage)
                Me.tabControl1.Controls.Add(Me.Jeux_de_chance)
                Me.tabControl1.Controls.Add(Me.Menu)
                Me.tabControl1.Location = New System.Drawing.Point(1, -2)
                Me.tabControl1.Multiline = true
                Me.tabControl1.Name = "tabControl1"
                Me.tabControl1.SelectedIndex = 0
                Me.tabControl1.Size = New System.Drawing.Size(1084, 737)
                Me.tabControl1.TabIndex = 0
                '
                'Carte
                '
                Me.Carte.BackColor = System.Drawing.Color.Black
                Me.Carte.BackgroundImage = CType(resources.GetObject("Carte.BackgroundImage"),System.Drawing.Image)
                Me.Carte.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
                Me.Carte.Controls.Add(Me.groupBox3)
                Me.Carte.Controls.Add(Me.groupBox4)
                Me.Carte.Controls.Add(Me.groupBox2)
                Me.Carte.Controls.Add(Me.groupBox1)
                Me.Carte.Location = New System.Drawing.Point(4, 22)
                Me.Carte.Name = "Carte"
                Me.Carte.Padding = New System.Windows.Forms.Padding(3)
                Me.Carte.Size = New System.Drawing.Size(1076, 711)
                Me.Carte.TabIndex = 0
                Me.Carte.Text = "Carte et course"
                '
                'groupBox3
                '
                Me.groupBox3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom)  _
                            Or System.Windows.Forms.AnchorStyles.Left)  _
                            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.groupBox3.BackColor = System.Drawing.Color.Transparent
                Me.groupBox3.Location = New System.Drawing.Point(522, 481)
                Me.groupBox3.Name = "groupBox3"
                Me.groupBox3.Size = New System.Drawing.Size(245, 37)
                Me.groupBox3.TabIndex = 0
                Me.groupBox3.TabStop = false
                '
                'groupBox4
                '
                Me.groupBox4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom)  _
                            Or System.Windows.Forms.AnchorStyles.Left)  _
                            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.groupBox4.BackColor = System.Drawing.Color.Transparent
                Me.groupBox4.Location = New System.Drawing.Point(499, 68)
                Me.groupBox4.Name = "groupBox4"
                Me.groupBox4.Size = New System.Drawing.Size(236, 154)
                Me.groupBox4.TabIndex = 0
                Me.groupBox4.TabStop = false
                '
                'groupBox2
                '
                Me.groupBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom)  _
                            Or System.Windows.Forms.AnchorStyles.Left)  _
                            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.groupBox2.BackColor = System.Drawing.Color.Transparent
                Me.groupBox2.Location = New System.Drawing.Point(522, 689)
                Me.groupBox2.Name = "groupBox2"
                Me.groupBox2.Size = New System.Drawing.Size(199, 16)
                Me.groupBox2.TabIndex = 0
                Me.groupBox2.TabStop = false
                '
                'groupBox1
                '
                Me.groupBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom)  _
                            Or System.Windows.Forms.AnchorStyles.Left)  _
                            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.groupBox1.BackColor = System.Drawing.Color.Transparent
                Me.groupBox1.Location = New System.Drawing.Point(151, 124)
                Me.groupBox1.Name = "groupBox1"
                Me.groupBox1.Size = New System.Drawing.Size(61, 532)
                Me.groupBox1.TabIndex = 0
                Me.groupBox1.TabStop = false
                '
                'Magasin
                '
                Me.Magasin.BackColor = System.Drawing.Color.Black
                Me.Magasin.Controls.Add(Me.label16)
                Me.Magasin.Controls.Add(Me.BoutonAcheter9)
                Me.Magasin.Controls.Add(Me.BoutonAcheter8)
                Me.Magasin.Controls.Add(Me.BoutonAcheter6)
                Me.Magasin.Controls.Add(Me.BoutonAcheter5)
                Me.Magasin.Controls.Add(Me.BoutonAcheter7)
                Me.Magasin.Controls.Add(Me.BoutonAcheter3)
                Me.Magasin.Controls.Add(Me.BoutonAcheter4)
                Me.Magasin.Controls.Add(Me.BoutonAcheter2)
                Me.Magasin.Controls.Add(Me.BoutonAcheter1)
                Me.Magasin.Controls.Add(Me.textBox19)
                Me.Magasin.Controls.Add(Me.textBox7)
                Me.Magasin.Controls.Add(Me.textBox18)
                Me.Magasin.Controls.Add(Me.textBox5)
                Me.Magasin.Controls.Add(Me.textBox22)
                Me.Magasin.Controls.Add(Me.textBox31)
                Me.Magasin.Controls.Add(Me.textBox28)
                Me.Magasin.Controls.Add(Me.textBox23)
                Me.Magasin.Controls.Add(Me.textBox17)
                Me.Magasin.Controls.Add(Me.textBox3)
                Me.Magasin.Controls.Add(Me.textBox30)
                Me.Magasin.Controls.Add(Me.textBox27)
                Me.Magasin.Controls.Add(Me.textBox24)
                Me.Magasin.Controls.Add(Me.textBox16)
                Me.Magasin.Controls.Add(Me.textBox10)
                Me.Magasin.Controls.Add(Me.textBox29)
                Me.Magasin.Controls.Add(Me.textBox15)
                Me.Magasin.Controls.Add(Me.textBox26)
                Me.Magasin.Controls.Add(Me.textBox6)
                Me.Magasin.Controls.Add(Me.textBox25)
                Me.Magasin.Controls.Add(Me.textBox14)
                Me.Magasin.Controls.Add(Me.textBox9)
                Me.Magasin.Controls.Add(Me.textBox13)
                Me.Magasin.Controls.Add(Me.textBox8)
                Me.Magasin.Controls.Add(Me.textBoxrenforcment)
                Me.Magasin.Controls.Add(Me.textBoxmanovre)
                Me.Magasin.Controls.Add(Me.textBoxvitesse)
                Me.Magasin.Controls.Add(Me.textBox21)
                Me.Magasin.Controls.Add(Me.textBox12)
                Me.Magasin.Controls.Add(Me.textBox4)
                Me.Magasin.Controls.Add(Me.textBox20)
                Me.Magasin.Controls.Add(Me.textBox11)
                Me.Magasin.Controls.Add(Me.textBox2)
                Me.Magasin.Controls.Add(Me.label12)
                Me.Magasin.Controls.Add(Me.label11)
                Me.Magasin.Controls.Add(Me.label10)
                Me.Magasin.Controls.Add(Me.label13)
                Me.Magasin.Controls.Add(Me.label14)
                Me.Magasin.Controls.Add(Me.label9)
                Me.Magasin.Controls.Add(Me.label8)
                Me.Magasin.ForeColor = System.Drawing.Color.White
                Me.Magasin.Location = New System.Drawing.Point(4, 22)
                Me.Magasin.Name = "Magasin"
                Me.Magasin.Padding = New System.Windows.Forms.Padding(3)
                Me.Magasin.Size = New System.Drawing.Size(1076, 711)
                Me.Magasin.TabIndex = 1
                Me.Magasin.Text = "Magasin"
                '
                'label16
                '
                Me.label16.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.label16.Font = New System.Drawing.Font("Comic Sans MS", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
                Me.label16.ForeColor = System.Drawing.Color.White
                Me.label16.Location = New System.Drawing.Point(245, 518)
                Me.label16.Name = "label16"
                Me.label16.Size = New System.Drawing.Size(661, 72)
                Me.label16.TabIndex = 5
                '
                'BoutonAcheter9
                '
                Me.BoutonAcheter9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.BoutonAcheter9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.BoutonAcheter9.Location = New System.Drawing.Point(831, 490)
                Me.BoutonAcheter9.Name = "BoutonAcheter9"
                Me.BoutonAcheter9.Size = New System.Drawing.Size(75, 22)
                Me.BoutonAcheter9.TabIndex = 4
                Me.BoutonAcheter9.Text = "Acheter"
                Me.BoutonAcheter9.UseVisualStyleBackColor = true
                '
                'BoutonAcheter8
                '
                Me.BoutonAcheter8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.BoutonAcheter8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.BoutonAcheter8.Location = New System.Drawing.Point(831, 462)
                Me.BoutonAcheter8.Name = "BoutonAcheter8"
                Me.BoutonAcheter8.Size = New System.Drawing.Size(75, 22)
                Me.BoutonAcheter8.TabIndex = 4
                Me.BoutonAcheter8.Text = "Acheter"
                Me.BoutonAcheter8.UseVisualStyleBackColor = true
                '
                'BoutonAcheter6
                '
                Me.BoutonAcheter6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.BoutonAcheter6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.BoutonAcheter6.Location = New System.Drawing.Point(831, 400)
                Me.BoutonAcheter6.Name = "BoutonAcheter6"
                Me.BoutonAcheter6.Size = New System.Drawing.Size(75, 22)
                Me.BoutonAcheter6.TabIndex = 4
                Me.BoutonAcheter6.Text = "Acheter"
                Me.BoutonAcheter6.UseVisualStyleBackColor = true
                '
                'BoutonAcheter5
                '
                Me.BoutonAcheter5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.BoutonAcheter5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.BoutonAcheter5.Location = New System.Drawing.Point(831, 372)
                Me.BoutonAcheter5.Name = "BoutonAcheter5"
                Me.BoutonAcheter5.Size = New System.Drawing.Size(75, 22)
                Me.BoutonAcheter5.TabIndex = 4
                Me.BoutonAcheter5.Text = "Acheter"
                Me.BoutonAcheter5.UseVisualStyleBackColor = true
                '
                'BoutonAcheter7
                '
                Me.BoutonAcheter7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.BoutonAcheter7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.BoutonAcheter7.Location = New System.Drawing.Point(831, 434)
                Me.BoutonAcheter7.Name = "BoutonAcheter7"
                Me.BoutonAcheter7.Size = New System.Drawing.Size(75, 22)
                Me.BoutonAcheter7.TabIndex = 4
                Me.BoutonAcheter7.Text = "Acheter"
                Me.BoutonAcheter7.UseVisualStyleBackColor = true
                '
                'BoutonAcheter3
                '
                Me.BoutonAcheter3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.BoutonAcheter3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.BoutonAcheter3.Location = New System.Drawing.Point(831, 306)
                Me.BoutonAcheter3.Name = "BoutonAcheter3"
                Me.BoutonAcheter3.Size = New System.Drawing.Size(75, 22)
                Me.BoutonAcheter3.TabIndex = 4
                Me.BoutonAcheter3.Text = "Acheter"
                Me.BoutonAcheter3.UseVisualStyleBackColor = true
                '
                'BoutonAcheter4
                '
                Me.BoutonAcheter4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.BoutonAcheter4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.BoutonAcheter4.Location = New System.Drawing.Point(831, 344)
                Me.BoutonAcheter4.Name = "BoutonAcheter4"
                Me.BoutonAcheter4.Size = New System.Drawing.Size(75, 22)
                Me.BoutonAcheter4.TabIndex = 4
                Me.BoutonAcheter4.Text = "Acheter"
                Me.BoutonAcheter4.UseVisualStyleBackColor = true
                '
                'BoutonAcheter2
                '
                Me.BoutonAcheter2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.BoutonAcheter2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.BoutonAcheter2.Location = New System.Drawing.Point(831, 278)
                Me.BoutonAcheter2.Name = "BoutonAcheter2"
                Me.BoutonAcheter2.Size = New System.Drawing.Size(75, 22)
                Me.BoutonAcheter2.TabIndex = 4
                Me.BoutonAcheter2.Text = "Acheter"
                Me.BoutonAcheter2.UseVisualStyleBackColor = true
                '
                'BoutonAcheter1
                '
                Me.BoutonAcheter1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.BoutonAcheter1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.BoutonAcheter1.Location = New System.Drawing.Point(831, 250)
                Me.BoutonAcheter1.Name = "BoutonAcheter1"
                Me.BoutonAcheter1.Size = New System.Drawing.Size(75, 22)
                Me.BoutonAcheter1.TabIndex = 4
                Me.BoutonAcheter1.Text = "Acheter"
                Me.BoutonAcheter1.UseVisualStyleBackColor = true
                '
                'textBox19
                '
                Me.textBox19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox19.BackColor = System.Drawing.Color.Black
                Me.textBox19.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox19.Enabled = false
                Me.textBox19.ForeColor = System.Drawing.Color.White
                Me.textBox19.Location = New System.Drawing.Point(245, 399)
                Me.textBox19.Name = "textBox19"
                Me.textBox19.Size = New System.Drawing.Size(152, 22)
                Me.textBox19.TabIndex = 3
                Me.textBox19.Text = "ROUE TOUT TERRAINS"
                '
                'textBox7
                '
                Me.textBox7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox7.BackColor = System.Drawing.Color.Black
                Me.textBox7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox7.Enabled = false
                Me.textBox7.ForeColor = System.Drawing.Color.White
                Me.textBox7.Location = New System.Drawing.Point(245, 306)
                Me.textBox7.Name = "textBox7"
                Me.textBox7.Size = New System.Drawing.Size(152, 22)
                Me.textBox7.TabIndex = 3
                Me.textBox7.Text = "MOTEUR NIVEAU 3 "
                '
                'textBox18
                '
                Me.textBox18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox18.BackColor = System.Drawing.Color.Black
                Me.textBox18.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox18.Enabled = false
                Me.textBox18.ForeColor = System.Drawing.Color.White
                Me.textBox18.Location = New System.Drawing.Point(245, 371)
                Me.textBox18.Name = "textBox18"
                Me.textBox18.Size = New System.Drawing.Size(152, 22)
                Me.textBox18.TabIndex = 3
                Me.textBox18.Text = "SUSPENSIONS HYDRAULIQUES"
                '
                'textBox5
                '
                Me.textBox5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox5.BackColor = System.Drawing.Color.Black
                Me.textBox5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox5.Enabled = false
                Me.textBox5.ForeColor = System.Drawing.Color.White
                Me.textBox5.Location = New System.Drawing.Point(245, 278)
                Me.textBox5.Name = "textBox5"
                Me.textBox5.Size = New System.Drawing.Size(152, 22)
                Me.textBox5.TabIndex = 3
                Me.textBox5.Text = "MOTEUR NIVEAU 2 "
                '
                'textBox22
                '
                Me.textBox22.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox22.BackColor = System.Drawing.Color.Black
                Me.textBox22.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox22.Enabled = false
                Me.textBox22.ForeColor = System.Drawing.Color.White
                Me.textBox22.Location = New System.Drawing.Point(245, 216)
                Me.textBox22.Name = "textBox22"
                Me.textBox22.Size = New System.Drawing.Size(152, 22)
                Me.textBox22.TabIndex = 3
                Me.textBox22.Text = "PIECE"
                '
                'textBox31
                '
                Me.textBox31.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox31.BackColor = System.Drawing.Color.Black
                Me.textBox31.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox31.Enabled = false
                Me.textBox31.ForeColor = System.Drawing.Color.White
                Me.textBox31.Location = New System.Drawing.Point(245, 489)
                Me.textBox31.Name = "textBox31"
                Me.textBox31.Size = New System.Drawing.Size(152, 22)
                Me.textBox31.TabIndex = 3
                Me.textBox31.Text = "CARROSSERIE RENFORCÉE"
                '
                'textBox28
                '
                Me.textBox28.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox28.BackColor = System.Drawing.Color.Black
                Me.textBox28.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox28.Enabled = false
                Me.textBox28.ForeColor = System.Drawing.Color.White
                Me.textBox28.Location = New System.Drawing.Point(245, 461)
                Me.textBox28.Name = "textBox28"
                Me.textBox28.Size = New System.Drawing.Size(152, 22)
                Me.textBox28.TabIndex = 3
                Me.textBox28.Text = "ROUE INCREVABLE"
                '
                'textBox23
                '
                Me.textBox23.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox23.BackColor = System.Drawing.Color.Black
                Me.textBox23.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox23.Enabled = false
                Me.textBox23.ForeColor = System.Drawing.Color.White
                Me.textBox23.Location = New System.Drawing.Point(245, 433)
                Me.textBox23.Name = "textBox23"
                Me.textBox23.Size = New System.Drawing.Size(152, 22)
                Me.textBox23.TabIndex = 3
                Me.textBox23.Text = "PAR CHOC EN METAL"
                '
                'textBox17
                '
                Me.textBox17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox17.BackColor = System.Drawing.Color.Black
                Me.textBox17.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox17.Enabled = false
                Me.textBox17.ForeColor = System.Drawing.Color.White
                Me.textBox17.Location = New System.Drawing.Point(245, 343)
                Me.textBox17.Name = "textBox17"
                Me.textBox17.Size = New System.Drawing.Size(152, 22)
                Me.textBox17.TabIndex = 3
                Me.textBox17.Text = "FREIN"
                '
                'textBox3
                '
                Me.textBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox3.BackColor = System.Drawing.Color.Black
                Me.textBox3.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
                Me.textBox3.Enabled = false
                Me.textBox3.ForeColor = System.Drawing.Color.White
                Me.textBox3.Location = New System.Drawing.Point(245, 250)
                Me.textBox3.Name = "textBox3"
                Me.textBox3.Size = New System.Drawing.Size(152, 22)
                Me.textBox3.TabIndex = 3
                Me.textBox3.Text = "MOTEUR NIVEAU 1 "
                '
                'textBox30
                '
                Me.textBox30.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox30.BackColor = System.Drawing.Color.Black
                Me.textBox30.Enabled = false
                Me.textBox30.ForeColor = System.Drawing.Color.White
                Me.textBox30.Location = New System.Drawing.Point(403, 489)
                Me.textBox30.Name = "textBox30"
                Me.textBox30.Size = New System.Drawing.Size(301, 22)
                Me.textBox30.TabIndex = 3
                Me.textBox30.Text = "+ 3 de renforcement"
                '
                'textBox27
                '
                Me.textBox27.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox27.BackColor = System.Drawing.Color.Black
                Me.textBox27.Enabled = false
                Me.textBox27.ForeColor = System.Drawing.Color.White
                Me.textBox27.Location = New System.Drawing.Point(403, 461)
                Me.textBox27.Name = "textBox27"
                Me.textBox27.Size = New System.Drawing.Size(301, 22)
                Me.textBox27.TabIndex = 3
                Me.textBox27.Text = "+ 2 de renforcement"
                '
                'textBox24
                '
                Me.textBox24.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox24.BackColor = System.Drawing.Color.Black
                Me.textBox24.Enabled = false
                Me.textBox24.ForeColor = System.Drawing.Color.White
                Me.textBox24.Location = New System.Drawing.Point(403, 433)
                Me.textBox24.Name = "textBox24"
                Me.textBox24.Size = New System.Drawing.Size(301, 22)
                Me.textBox24.TabIndex = 3
                Me.textBox24.Text = "+ 1 de renforcement"
                '

    Ah non c'est pire triple post si je tout rentré je suis désoler désoler Embarassed Embarassed
    gipse
    gipse
    Habitué
    Habitué


    Masculin Nombre de messages : 575
    Localisation : en face de mon voisin
    Emploi/loisirs : informatique, SZ
    Humeur : je suis heureux grace a SZ !
    Date d'inscription : 19/01/2011

    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par gipse Sam 30 Avr 2011 - 11:46

    Code:
                'textBox16
                '
                Me.textBox16.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox16.BackColor = System.Drawing.Color.Black
                Me.textBox16.Enabled = false
                Me.textBox16.ForeColor = System.Drawing.Color.White
                Me.textBox16.Location = New System.Drawing.Point(403, 399)
                Me.textBox16.Name = "textBox16"
                Me.textBox16.Size = New System.Drawing.Size(301, 22)
                Me.textBox16.TabIndex = 3
                Me.textBox16.Text = "+ 3 de manoevre"
                '
                'textBox10
                '
                Me.textBox10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox10.BackColor = System.Drawing.Color.Black
                Me.textBox10.Enabled = false
                Me.textBox10.ForeColor = System.Drawing.Color.White
                Me.textBox10.Location = New System.Drawing.Point(403, 306)
                Me.textBox10.Name = "textBox10"
                Me.textBox10.Size = New System.Drawing.Size(301, 22)
                Me.textBox10.TabIndex = 3
                Me.textBox10.Text = "+ 100 de vitesse"
                '
                'textBox29
                '
                Me.textBox29.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox29.BackColor = System.Drawing.Color.Black
                Me.textBox29.Enabled = false
                Me.textBox29.ForeColor = System.Drawing.Color.White
                Me.textBox29.Location = New System.Drawing.Point(710, 489)
                Me.textBox29.Name = "textBox29"
                Me.textBox29.Size = New System.Drawing.Size(115, 22)
                Me.textBox29.TabIndex = 3
                Me.textBox29.Text = "280 €"
                '
                'textBox15
                '
                Me.textBox15.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox15.BackColor = System.Drawing.Color.Black
                Me.textBox15.Enabled = false
                Me.textBox15.ForeColor = System.Drawing.Color.White
                Me.textBox15.Location = New System.Drawing.Point(403, 371)
                Me.textBox15.Name = "textBox15"
                Me.textBox15.Size = New System.Drawing.Size(301, 22)
                Me.textBox15.TabIndex = 3
                Me.textBox15.Text = "+ 2 de manoevre"
                '
                'textBox26
                '
                Me.textBox26.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox26.BackColor = System.Drawing.Color.Black
                Me.textBox26.Enabled = false
                Me.textBox26.ForeColor = System.Drawing.Color.White
                Me.textBox26.Location = New System.Drawing.Point(710, 461)
                Me.textBox26.Name = "textBox26"
                Me.textBox26.Size = New System.Drawing.Size(115, 22)
                Me.textBox26.TabIndex = 3
                Me.textBox26.Text = "230 €"
                '
                'textBox6
                '
                Me.textBox6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox6.BackColor = System.Drawing.Color.Black
                Me.textBox6.Enabled = false
                Me.textBox6.ForeColor = System.Drawing.Color.White
                Me.textBox6.Location = New System.Drawing.Point(403, 278)
                Me.textBox6.Name = "textBox6"
                Me.textBox6.Size = New System.Drawing.Size(301, 22)
                Me.textBox6.TabIndex = 3
                Me.textBox6.Text = "+ 50 de vitesse"
                '
                'textBox25
                '
                Me.textBox25.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox25.BackColor = System.Drawing.Color.Black
                Me.textBox25.Enabled = false
                Me.textBox25.ForeColor = System.Drawing.Color.White
                Me.textBox25.Location = New System.Drawing.Point(710, 433)
                Me.textBox25.Name = "textBox25"
                Me.textBox25.Size = New System.Drawing.Size(115, 22)
                Me.textBox25.TabIndex = 3
                Me.textBox25.Text = "150 €"
                '
                'textBox14
                '
                Me.textBox14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox14.BackColor = System.Drawing.Color.Black
                Me.textBox14.Enabled = false
                Me.textBox14.ForeColor = System.Drawing.Color.White
                Me.textBox14.Location = New System.Drawing.Point(710, 399)
                Me.textBox14.Name = "textBox14"
                Me.textBox14.Size = New System.Drawing.Size(115, 22)
                Me.textBox14.TabIndex = 3
                Me.textBox14.Text = "190 €"
                '
                'textBox9
                '
                Me.textBox9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox9.BackColor = System.Drawing.Color.Black
                Me.textBox9.Enabled = false
                Me.textBox9.ForeColor = System.Drawing.Color.White
                Me.textBox9.Location = New System.Drawing.Point(710, 306)
                Me.textBox9.Name = "textBox9"
                Me.textBox9.Size = New System.Drawing.Size(115, 22)
                Me.textBox9.TabIndex = 3
                Me.textBox9.Text = "260 €"
                '
                'textBox13
                '
                Me.textBox13.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox13.BackColor = System.Drawing.Color.Black
                Me.textBox13.Enabled = false
                Me.textBox13.ForeColor = System.Drawing.Color.White
                Me.textBox13.Location = New System.Drawing.Point(710, 371)
                Me.textBox13.Name = "textBox13"
                Me.textBox13.Size = New System.Drawing.Size(115, 22)
                Me.textBox13.TabIndex = 3
                Me.textBox13.Text = "140 €"
                '
                'textBox8
                '
                Me.textBox8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox8.BackColor = System.Drawing.Color.Black
                Me.textBox8.Enabled = false
                Me.textBox8.ForeColor = System.Drawing.Color.White
                Me.textBox8.Location = New System.Drawing.Point(710, 278)
                Me.textBox8.Name = "textBox8"
                Me.textBox8.Size = New System.Drawing.Size(115, 22)
                Me.textBox8.TabIndex = 3
                Me.textBox8.Text = "180 €"
                '
                'textBoxrenforcment
                '
                Me.textBoxrenforcment.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.textBoxrenforcment.BackColor = System.Drawing.Color.Black
                Me.textBoxrenforcment.Enabled = false
                Me.textBoxrenforcment.ForeColor = System.Drawing.Color.White
                Me.textBoxrenforcment.Location = New System.Drawing.Point(608, 124)
                Me.textBoxrenforcment.Name = "textBoxrenforcment"
                Me.textBoxrenforcment.Size = New System.Drawing.Size(115, 22)
                Me.textBoxrenforcment.TabIndex = 3
                Me.textBoxrenforcment.Text = "0003"
                '
                'textBoxmanovre
                '
                Me.textBoxmanovre.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.textBoxmanovre.BackColor = System.Drawing.Color.Black
                Me.textBoxmanovre.Enabled = false
                Me.textBoxmanovre.ForeColor = System.Drawing.Color.White
                Me.textBoxmanovre.Location = New System.Drawing.Point(608, 95)
                Me.textBoxmanovre.Name = "textBoxmanovre"
                Me.textBoxmanovre.Size = New System.Drawing.Size(115, 22)
                Me.textBoxmanovre.TabIndex = 3
                Me.textBoxmanovre.Text = "1"
                '
                'textBoxvitesse
                '
                Me.textBoxvitesse.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.textBoxvitesse.BackColor = System.Drawing.Color.Black
                Me.textBoxvitesse.Enabled = false
                Me.textBoxvitesse.ForeColor = System.Drawing.Color.White
                Me.textBoxvitesse.Location = New System.Drawing.Point(608, 66)
                Me.textBoxvitesse.Name = "textBoxvitesse"
                Me.textBoxvitesse.Size = New System.Drawing.Size(115, 22)
                Me.textBoxvitesse.TabIndex = 3
                Me.textBoxvitesse.Text = "45"
                '
                'textBox21
                '
                Me.textBox21.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox21.BackColor = System.Drawing.Color.Black
                Me.textBox21.Enabled = false
                Me.textBox21.ForeColor = System.Drawing.Color.White
                Me.textBox21.Location = New System.Drawing.Point(710, 216)
                Me.textBox21.Name = "textBox21"
                Me.textBox21.Size = New System.Drawing.Size(115, 22)
                Me.textBox21.TabIndex = 3
                Me.textBox21.Text = "prix"
                '
                'textBox12
                '
                Me.textBox12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox12.BackColor = System.Drawing.Color.Black
                Me.textBox12.Enabled = false
                Me.textBox12.ForeColor = System.Drawing.Color.White
                Me.textBox12.Location = New System.Drawing.Point(710, 343)
                Me.textBox12.Name = "textBox12"
                Me.textBox12.Size = New System.Drawing.Size(115, 22)
                Me.textBox12.TabIndex = 3
                Me.textBox12.Text = "70 €"
                '
                'textBox4
                '
                Me.textBox4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox4.BackColor = System.Drawing.Color.Black
                Me.textBox4.Enabled = false
                Me.textBox4.ForeColor = System.Drawing.Color.White
                Me.textBox4.Location = New System.Drawing.Point(710, 250)
                Me.textBox4.Name = "textBox4"
                Me.textBox4.Size = New System.Drawing.Size(115, 22)
                Me.textBox4.TabIndex = 3
                Me.textBox4.Text = "100 €"
                '
                'textBox20
                '
                Me.textBox20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox20.BackColor = System.Drawing.Color.Black
                Me.textBox20.Enabled = false
                Me.textBox20.ForeColor = System.Drawing.Color.White
                Me.textBox20.Location = New System.Drawing.Point(403, 216)
                Me.textBox20.Name = "textBox20"
                Me.textBox20.Size = New System.Drawing.Size(301, 22)
                Me.textBox20.TabIndex = 3
                Me.textBox20.Text = "description"
                '
                'textBox11
                '
                Me.textBox11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox11.BackColor = System.Drawing.Color.Black
                Me.textBox11.Enabled = false
                Me.textBox11.ForeColor = System.Drawing.Color.White
                Me.textBox11.Location = New System.Drawing.Point(403, 343)
                Me.textBox11.Name = "textBox11"
                Me.textBox11.Size = New System.Drawing.Size(301, 22)
                Me.textBox11.TabIndex = 3
                Me.textBox11.Text = "+ 1 de manoevre"
                '
                'textBox2
                '
                Me.textBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox2.BackColor = System.Drawing.Color.Black
                Me.textBox2.Enabled = false
                Me.textBox2.ForeColor = System.Drawing.Color.White
                Me.textBox2.Location = New System.Drawing.Point(403, 250)
                Me.textBox2.Name = "textBox2"
                Me.textBox2.Size = New System.Drawing.Size(301, 22)
                Me.textBox2.TabIndex = 3
                Me.textBox2.Text = "+ 10 de vitesse"
                '
                'label12
                '
                Me.label12.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label12.ForeColor = System.Drawing.Color.White
                Me.label12.Location = New System.Drawing.Point(515, 127)
                Me.label12.Name = "label12"
                Me.label12.Size = New System.Drawing.Size(87, 23)
                Me.label12.TabIndex = 0
                Me.label12.Text = "Renforcement :"
                '
                'label11
                '
                Me.label11.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label11.ForeColor = System.Drawing.Color.White
                Me.label11.Location = New System.Drawing.Point(535, 98)
                Me.label11.Name = "label11"
                Me.label11.Size = New System.Drawing.Size(67, 23)
                Me.label11.TabIndex = 0
                Me.label11.Text = "Manoevre :"
                '
                'label10
                '
                Me.label10.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label10.ForeColor = System.Drawing.Color.White
                Me.label10.Location = New System.Drawing.Point(553, 69)
                Me.label10.Name = "label10"
                Me.label10.Size = New System.Drawing.Size(49, 23)
                Me.label10.TabIndex = 0
                Me.label10.Text = "Vitesse :"
                '
                'label13
                '
                Me.label13.ForeColor = System.Drawing.Color.White
                Me.label13.Location = New System.Drawing.Point(8, 40)
                Me.label13.Name = "label13"
                Me.label13.Size = New System.Drawing.Size(200, 52)
                Me.label13.TabIndex = 0
                Me.label13.Text = "Vitesse : Pour gagner, il faut etre le 1er, c'est une évidence ! Alors profiter e"& _
                    "n pour aller plus vite !"
                '
                'label14
                '
                Me.label14.ForeColor = System.Drawing.Color.White
                Me.label14.Location = New System.Drawing.Point(8, 98)
                Me.label14.Name = "label14"
                Me.label14.Size = New System.Drawing.Size(200, 52)
                Me.label14.TabIndex = 0
                Me.label14.Text = "Manoevre : Pour les cicuit difficile, ou meme éviter les voitures civiles, les ma"& _
                    "noevres sont très utile. Cela augmente vos chance de gagner."
                '
                'label9
                '
                Me.label9.ForeColor = System.Drawing.Color.White
                Me.label9.Location = New System.Drawing.Point(8, 168)
                Me.label9.Name = "label9"
                Me.label9.Size = New System.Drawing.Size(200, 70)
                Me.label9.TabIndex = 0
                Me.label9.Text = "Renforcement : Ceci n'est pas très utile au niveau course mais cela protège bien "& _
                    "! Une voiture qui peux se prendre plusieurs voitures en meme temps est un avanta"& _
                    "ge."
                '
                'label8
                '
                Me.label8.ForeColor = System.Drawing.Color.White
                Me.label8.Location = New System.Drawing.Point(8, 7)
                Me.label8.Name = "label8"
                Me.label8.Size = New System.Drawing.Size(1061, 46)
                Me.label8.TabIndex = 0
                Me.label8.Text = resources.GetString("label8.Text")
                '
                'Garage
                '
                Me.Garage.BackColor = System.Drawing.Color.Black
                Me.Garage.Controls.Add(Me.label33)
                Me.Garage.Controls.Add(Me.label32)
                Me.Garage.Controls.Add(Me.label24)
                Me.Garage.Controls.Add(Me.label34)
                Me.Garage.Controls.Add(Me.label31)
                Me.Garage.Controls.Add(Me.label25)
                Me.Garage.Controls.Add(Me.label30)
                Me.Garage.Controls.Add(Me.label23)
                Me.Garage.Controls.Add(Me.label22)
                Me.Garage.Controls.Add(Me.label21)
                Me.Garage.Controls.Add(Me.label20)
                Me.Garage.Controls.Add(Me.groupBox5)
                Me.Garage.Controls.Add(Me.pictureBox10)
                Me.Garage.Controls.Add(Me.pictureBox8)
                Me.Garage.Controls.Add(Me.pictureBox7)
                Me.Garage.Controls.Add(Me.pictureBox6)
                Me.Garage.Controls.Add(Me.pictureBox5)
                Me.Garage.Controls.Add(Me.pictureBox4)
                Me.Garage.Controls.Add(Me.label18)
                Me.Garage.Location = New System.Drawing.Point(4, 22)
                Me.Garage.Name = "Garage"
                Me.Garage.Size = New System.Drawing.Size(1076, 711)
                Me.Garage.TabIndex = 2
                Me.Garage.Text = "Garage"
                Me.Garage.Visible = false
                '
                'label33
                '
                Me.label33.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label33.Location = New System.Drawing.Point(248, 377)
                Me.label33.Name = "label33"
                Me.label33.Size = New System.Drawing.Size(423, 52)
                Me.label33.TabIndex = 0
                Me.label33.Text = "Passer la sourie sur une photo pour des infos"
                '
                'label32
                '
                Me.label32.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label32.Location = New System.Drawing.Point(408, 335)
                Me.label32.Name = "label32"
                Me.label32.Size = New System.Drawing.Size(121, 23)
                Me.label32.TabIndex = 3
                Me.label32.Text = "Manoevre : ."
                '
                'label24
                '
                Me.label24.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label24.Location = New System.Drawing.Point(223, 262)
                Me.label24.Name = "label24"
                Me.label24.Size = New System.Drawing.Size(79, 23)
                Me.label24.TabIndex = 3
                Me.label24.Text = "Citroinne"
                '
                'label34
                '
                Me.label34.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label34.Location = New System.Drawing.Point(748, 335)
                Me.label34.Name = "label34"
                Me.label34.Size = New System.Drawing.Size(73, 23)
                Me.label34.TabIndex = 3
                Me.label34.Text = "Prix : ."
                '
                'label31
                '
                Me.label31.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label31.Location = New System.Drawing.Point(580, 335)
                Me.label31.Name = "label31"
                Me.label31.Size = New System.Drawing.Size(121, 23)
                Me.label31.TabIndex = 3
                Me.label31.Text = "Renforcement : ."
                '
                'label25
                '
                Me.label25.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label25.Location = New System.Drawing.Point(818, 262)
                Me.label25.Name = "label25"
                Me.label25.Size = New System.Drawing.Size(91, 23)
                Me.label25.TabIndex = 3
                Me.label25.Text = "Begatti"
                '
                'label30
                '
                Me.label30.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label30.Location = New System.Drawing.Point(248, 335)
                Me.label30.Name = "label30"
                Me.label30.Size = New System.Drawing.Size(121, 23)
                Me.label30.TabIndex = 3
                Me.label30.Text = "Vitesse : ."
                '
                'label23
                '
                Me.label23.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label23.Location = New System.Drawing.Point(699, 262)
                Me.label23.Name = "label23"
                Me.label23.Size = New System.Drawing.Size(91, 23)
                Me.label23.TabIndex = 3
                Me.label23.Text = "Parche"
                '
                'label22
                '
                Me.label22.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label22.Location = New System.Drawing.Point(580, 262)
                Me.label22.Name = "label22"
                Me.label22.Size = New System.Drawing.Size(91, 23)
                Me.label22.TabIndex = 3
                Me.label22.Text = "Firrari"
                '
                'label21
                '
                Me.label21.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label21.Location = New System.Drawing.Point(461, 262)
                Me.label21.Name = "label21"
                Me.label21.Size = New System.Drawing.Size(91, 23)
                Me.label21.TabIndex = 3
                Me.label21.Text = "Chavrolet"
                '
                'label20
                '
                Me.label20.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.label20.Location = New System.Drawing.Point(342, 262)
                Me.label20.Name = "label20"
                Me.label20.Size = New System.Drawing.Size(91, 23)
                Me.label20.TabIndex = 3
                Me.label20.Text = "Valva"
                '
                'groupBox5
                '
                Me.groupBox5.Controls.Add(Me.label29)
                Me.groupBox5.Controls.Add(Me.label28)
                Me.groupBox5.Controls.Add(Me.label27)
                Me.groupBox5.Controls.Add(Me.label26)
                Me.groupBox5.Controls.Add(Me.label19)
                Me.groupBox5.Controls.Add(Me.pictureBox3)
                Me.groupBox5.Location = New System.Drawing.Point(7, 135)
                Me.groupBox5.Name = "groupBox5"
                Me.groupBox5.Size = New System.Drawing.Size(210, 321)
                Me.groupBox5.TabIndex = 4
                Me.groupBox5.TabStop = false
                Me.groupBox5.Text = "Voiture actuelle :"
                '
                'label29
                '
                Me.label29.Location = New System.Drawing.Point(6, 223)
                Me.label29.Name = "label29"
                Me.label29.Size = New System.Drawing.Size(193, 95)
                Me.label29.TabIndex = 0
                Me.label29.Text = "La Citroinne n'est pas très bien pour les courses mais elle n'est pas chere..."
                '
                'label28
                '
                Me.label28.Location = New System.Drawing.Point(11, 177)
                Me.label28.Name = "label28"
                Me.label28.Size = New System.Drawing.Size(121, 23)
                Me.label28.TabIndex = 3
                Me.label28.Text = "Manoevre : 10"
                '
                'label27
                '
                Me.label27.Location = New System.Drawing.Point(11, 200)
                Me.label27.Name = "label27"
                Me.label27.Size = New System.Drawing.Size(121, 23)
                Me.label27.TabIndex = 3
                Me.label27.Text = "Renforcement : 0"
                '
                'label26
                '
                Me.label26.Location = New System.Drawing.Point(11, 154)
                Me.label26.Name = "label26"
                Me.label26.Size = New System.Drawing.Size(121, 23)
                Me.label26.TabIndex = 3
                Me.label26.Text = "Vitesse : 50"
                '
                'label19
                '
                Me.label19.Location = New System.Drawing.Point(11, 127)
                Me.label19.Name = "label19"
                Me.label19.Size = New System.Drawing.Size(121, 23)
                Me.label19.TabIndex = 3
                Me.label19.Text = "Citroinne"
                '
                'pictureBox3
                '
                Me.pictureBox3.ErrorImage = CType(resources.GetObject("pictureBox3.ErrorImage"),System.Drawing.Image)
                Me.pictureBox3.Image = CType(resources.GetObject("pictureBox3.Image"),System.Drawing.Image)
                Me.pictureBox3.InitialImage = CType(resources.GetObject("pictureBox3.InitialImage"),System.Drawing.Image)
                Me.pictureBox3.Location = New System.Drawing.Point(11, 21)
                Me.pictureBox3.Name = "pictureBox3"
                Me.pictureBox3.Size = New System.Drawing.Size(113, 103)
                Me.pictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox3.TabIndex = 2
                Me.pictureBox3.TabStop = false
                '
                'pictureBox10
                '
                Me.pictureBox10.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.pictureBox10.ErrorImage = CType(resources.GetObject("pictureBox10.ErrorImage"),System.Drawing.Image)
                Me.pictureBox10.Image = CType(resources.GetObject("pictureBox10.Image"),System.Drawing.Image)
                Me.pictureBox10.InitialImage = CType(resources.GetObject("pictureBox10.InitialImage"),System.Drawing.Image)
                Me.pictureBox10.Location = New System.Drawing.Point(818, 156)
                Me.pictureBox10.Name = "pictureBox10"
                Me.pictureBox10.Size = New System.Drawing.Size(113, 103)
                Me.pictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox10.TabIndex = 2
                Me.pictureBox10.TabStop = false
                '
                'pictureBox8
                '
                Me.pictureBox8.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.pictureBox8.ErrorImage = CType(resources.GetObject("pictureBox8.ErrorImage"),System.Drawing.Image)
                Me.pictureBox8.Image = CType(resources.GetObject("pictureBox8.Image"),System.Drawing.Image)
                Me.pictureBox8.InitialImage = CType(resources.GetObject("pictureBox8.InitialImage"),System.Drawing.Image)
                Me.pictureBox8.Location = New System.Drawing.Point(699, 156)
                Me.pictureBox8.Name = "pictureBox8"
                Me.pictureBox8.Size = New System.Drawing.Size(113, 103)
                Me.pictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox8.TabIndex = 2
                Me.pictureBox8.TabStop = false
                '
                'pictureBox7
                '
                Me.pictureBox7.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.pictureBox7.ErrorImage = CType(resources.GetObject("pictureBox7.ErrorImage"),System.Drawing.Image)
                Me.pictureBox7.Image = CType(resources.GetObject("pictureBox7.Image"),System.Drawing.Image)
                Me.pictureBox7.InitialImage = CType(resources.GetObject("pictureBox7.InitialImage"),System.Drawing.Image)
                Me.pictureBox7.Location = New System.Drawing.Point(223, 156)
                Me.pictureBox7.Name = "pictureBox7"
                Me.pictureBox7.Size = New System.Drawing.Size(113, 103)
                Me.pictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox7.TabIndex = 2
                Me.pictureBox7.TabStop = false
                '
                'pictureBox6
                '
                Me.pictureBox6.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.pictureBox6.ErrorImage = CType(resources.GetObject("pictureBox6.ErrorImage"),System.Drawing.Image)
                Me.pictureBox6.Image = CType(resources.GetObject("pictureBox6.Image"),System.Drawing.Image)
                Me.pictureBox6.InitialImage = CType(resources.GetObject("pictureBox6.InitialImage"),System.Drawing.Image)
                Me.pictureBox6.Location = New System.Drawing.Point(580, 156)
                Me.pictureBox6.Name = "pictureBox6"
                Me.pictureBox6.Size = New System.Drawing.Size(113, 103)
                Me.pictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox6.TabIndex = 2
                Me.pictureBox6.TabStop = false
                '
                'pictureBox5
                '
                Me.pictureBox5.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.pictureBox5.ErrorImage = CType(resources.GetObject("pictureBox5.ErrorImage"),System.Drawing.Image)
                Me.pictureBox5.Image = CType(resources.GetObject("pictureBox5.Image"),System.Drawing.Image)
                Me.pictureBox5.InitialImage = CType(resources.GetObject("pictureBox5.InitialImage"),System.Drawing.Image)
                Me.pictureBox5.Location = New System.Drawing.Point(461, 156)
                Me.pictureBox5.Name = "pictureBox5"
                Me.pictureBox5.Size = New System.Drawing.Size(113, 103)
                Me.pictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox5.TabIndex = 2
                Me.pictureBox5.TabStop = false
                '
                'pictureBox4
                '
                Me.pictureBox4.Anchor = System.Windows.Forms.AnchorStyles.Right
                Me.pictureBox4.ErrorImage = CType(resources.GetObject("pictureBox4.ErrorImage"),System.Drawing.Image)
                Me.pictureBox4.Image = CType(resources.GetObject("pictureBox4.Image"),System.Drawing.Image)
                Me.pictureBox4.InitialImage = CType(resources.GetObject("pictureBox4.InitialImage"),System.Drawing.Image)
                Me.pictureBox4.Location = New System.Drawing.Point(342, 156)
                Me.pictureBox4.Name = "pictureBox4"
                Me.pictureBox4.Size = New System.Drawing.Size(113, 103)
                Me.pictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox4.TabIndex = 2
                Me.pictureBox4.TabStop = false
                '
                'label18
                '
                Me.label18.Font = New System.Drawing.Font("Comic Sans MS", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
                Me.label18.Location = New System.Drawing.Point(7, 0)
                Me.label18.Name = "label18"
                Me.label18.Size = New System.Drawing.Size(862, 101)
                Me.label18.TabIndex = 0
                Me.label18.Text = resources.GetString("label18.Text")
                '
                'Jeux_de_chance
                '
                Me.Jeux_de_chance.BackColor = System.Drawing.Color.Black
                Me.Jeux_de_chance.Location = New System.Drawing.Point(4, 22)
                Me.Jeux_de_chance.Name = "Jeux_de_chance"
                Me.Jeux_de_chance.Size = New System.Drawing.Size(1076, 711)
                Me.Jeux_de_chance.TabIndex = 3
                Me.Jeux_de_chance.Text = "Jeux de chance"
                Me.Jeux_de_chance.Visible = false
                '
                'Menu
                '
                Me.Menu.BackColor = System.Drawing.Color.Black
                Me.Menu.Controls.Add(Me.button3)
                Me.Menu.Controls.Add(Me.label17)
                Me.Menu.Controls.Add(Me.label7)
                Me.Menu.Controls.Add(Me.textBox1)
                Me.Menu.Controls.Add(Me.label6)
                Me.Menu.Controls.Add(Me.label5)
                Me.Menu.Controls.Add(Me.pictureBox2)
                Me.Menu.Controls.Add(Me.pictureBox1)
                Me.Menu.Controls.Add(Me.button2)
                Me.Menu.Controls.Add(Me.button1)
                Me.Menu.Location = New System.Drawing.Point(4, 22)
                Me.Menu.Name = "Menu"
                Me.Menu.Size = New System.Drawing.Size(1076, 711)
                Me.Menu.TabIndex = 4
                Me.Menu.Text = "Menu"
                Me.Menu.Visible = false
                '
                'button3
                '
                Me.button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.button3.Location = New System.Drawing.Point(998, 40)
                Me.button3.Name = "button3"
                Me.button3.Size = New System.Drawing.Size(75, 22)
                Me.button3.TabIndex = 7
                Me.button3.Text = "Activer ?"
                Me.button3.UseVisualStyleBackColor = true
                '
                'label17
                '
                Me.label17.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left)  _
                            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.label17.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
                Me.label17.Location = New System.Drawing.Point(8, 373)
                Me.label17.Name = "label17"
                Me.label17.Size = New System.Drawing.Size(484, 133)
                Me.label17.TabIndex = 6
                Me.label17.Text = "Le jeu ne propose pas de sauvegarder, il le fait automatiquement a chaque nouvell"& _
                    "e fonction."
                '
                'label7
                '
                Me.label7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left)  _
                            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.label7.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
                Me.label7.Location = New System.Drawing.Point(589, 82)
                Me.label7.Name = "label7"
                Me.label7.Size = New System.Drawing.Size(484, 133)
                Me.label7.TabIndex = 6
                Me.label7.Text = "Merci d'utiliser ce jeux, Gipse Production fera des add-on et meme d'autre versio"& _
                    "n si les critique sont encouragente ! Ne vous géné pas, donner votre avis !"
                '
                'textBox1
                '
                Me.textBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left)  _
                            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.textBox1.ForeColor = System.Drawing.Color.Black
                Me.textBox1.Location = New System.Drawing.Point(589, 40)
                Me.textBox1.Name = "textBox1"
                Me.textBox1.Size = New System.Drawing.Size(403, 22)
                Me.textBox1.TabIndex = 5
                Me.textBox1.UseSystemPasswordChar = true
                '
                'label6
                '
                Me.label6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left)  _
                            Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.label6.Location = New System.Drawing.Point(588, 13)
                Me.label6.Name = "label6"
                Me.label6.Size = New System.Drawing.Size(419, 23)
                Me.label6.TabIndex = 4
                Me.label6.Text = "Code de triche /Cheats Code"
                '
                'label5
                '
                Me.label5.Anchor = System.Windows.Forms.AnchorStyles.Bottom
                Me.label5.Location = New System.Drawing.Point(300, 651)
                Me.label5.Name = "label5"
                Me.label5.Size = New System.Drawing.Size(281, 38)
                Me.label5.TabIndex = 3
                Me.label5.Text = "Gipse Production est le propriétaire de ce jeux, tout droit réservé ! "
                '
                'pictureBox2
                '
                Me.pictureBox2.Anchor = System.Windows.Forms.AnchorStyles.Bottom
                Me.pictureBox2.BackgroundImage = CType(resources.GetObject("pictureBox2.BackgroundImage"),System.Drawing.Image)
                Me.pictureBox2.ErrorImage = CType(resources.GetObject("pictureBox2.ErrorImage"),System.Drawing.Image)
                Me.pictureBox2.InitialImage = CType(resources.GetObject("pictureBox2.InitialImage"),System.Drawing.Image)
                Me.pictureBox2.Location = New System.Drawing.Point(135, 622)
                Me.pictureBox2.Name = "pictureBox2"
                Me.pictureBox2.Size = New System.Drawing.Size(158, 86)
                Me.pictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox2.TabIndex = 2
                Me.pictureBox2.TabStop = false
                '
                'pictureBox1
                '
                Me.pictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
                Me.pictureBox1.ErrorImage = CType(resources.GetObject("pictureBox1.ErrorImage"),System.Drawing.Image)
                Me.pictureBox1.Image = CType(resources.GetObject("pictureBox1.Image"),System.Drawing.Image)
                Me.pictureBox1.InitialImage = CType(resources.GetObject("pictureBox1.InitialImage"),System.Drawing.Image)
                Me.pictureBox1.Location = New System.Drawing.Point(8, 3)
                Me.pictureBox1.Name = "pictureBox1"
                Me.pictureBox1.Size = New System.Drawing.Size(574, 339)
                Me.pictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox1.TabIndex = 1
                Me.pictureBox1.TabStop = false
                '
                'button2
                '
                Me.button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.button2.BackColor = System.Drawing.Color.White
                Me.button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.button2.ForeColor = System.Drawing.Color.Black
                Me.button2.Location = New System.Drawing.Point(842, 634)
                Me.button2.Name = "button2"
                Me.button2.Size = New System.Drawing.Size(231, 65)
                Me.button2.TabIndex = 0
                Me.button2.Text = "Quitter le jeu"
                Me.button2.UseVisualStyleBackColor = false
                '
                'button1
                '
                Me.button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.button1.BackColor = System.Drawing.Color.White
                Me.button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.button1.ForeColor = System.Drawing.Color.Black
                Me.button1.Location = New System.Drawing.Point(842, 563)
                Me.button1.Name = "button1"
                Me.button1.Size = New System.Drawing.Size(231, 65)
                Me.button1.TabIndex = 0
                Me.button1.Text = "Revenir au menu"
                Me.button1.UseVisualStyleBackColor = false
                '
                'label1
                '
                Me.label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
                Me.label1.Location = New System.Drawing.Point(1, 738)
                Me.label1.Name = "label1"
                Me.label1.Size = New System.Drawing.Size(51, 23)
                Me.label1.TabIndex = 1
                Me.label1.Text = "Agent : "
                '
                'label2
                '
                Me.label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
                Me.label2.Location = New System.Drawing.Point(1, 761)
                Me.label2.Name = "label2"
                Me.label2.Size = New System.Drawing.Size(216, 23)
                Me.label2.TabIndex = 1
                Me.label2.Text = "Voiture :"
                '
                'label3
                '
                Me.label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
                Me.label3.Location = New System.Drawing.Point(1, 784)
                Me.label3.Name = "label3"
                Me.label3.Size = New System.Drawing.Size(216, 23)
                Me.label3.TabIndex = 1
                Me.label3.Text = "Niveau :"
                '
                'label4
                '
                Me.label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.label4.Location = New System.Drawing.Point(568, 738)
                Me.label4.Name = "label4"
                Me.label4.Size = New System.Drawing.Size(457, 69)
                Me.label4.TabIndex = 1
                Me.label4.Text = "Explication : "
                '
                'button9
                '
                Me.button9.Location = New System.Drawing.Point(0, 0)
                Me.button9.Name = "button9"
                Me.button9.Size = New System.Drawing.Size(75, 23)
                Me.button9.TabIndex = 0
                '
                'button10
                '
                Me.button10.Location = New System.Drawing.Point(0, 0)
                Me.button10.Name = "button10"
                Me.button10.Size = New System.Drawing.Size(75, 23)
                Me.button10.TabIndex = 0
                '
                'button11
                '
                Me.button11.Location = New System.Drawing.Point(0, 0)
                Me.button11.Name = "button11"
                Me.button11.Size = New System.Drawing.Size(75, 23)
                Me.button11.TabIndex = 0
                '
                'label15
                '
                Me.label15.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles)
                Me.label15.Location = New System.Drawing.Point(41, 738)
                Me.label15.Name = "label15"
                Me.label15.Size = New System.Drawing.Size(96, 23)
                Me.label15.TabIndex = 1
                Me.label15.Text = "0110"
                '
                'timer1
                '
                Me.timer1.Interval = 2210
                '
                'pictureBox9
                '
                Me.pictureBox9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
                Me.pictureBox9.Image = CType(resources.GetObject("pictureBox9.Image"),System.Drawing.Image)
                Me.pictureBox9.Location = New System.Drawing.Point(1041, 776)
                Me.pictureBox9.Name = "pictureBox9"
                Me.pictureBox9.Size = New System.Drawing.Size(40, 31)
                Me.pictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
                Me.pictureBox9.TabIndex = 1
                Me.pictureBox9.TabStop = false
                '
                'WindowsForm2
                '
                Me.BackColor = System.Drawing.Color.Black
                Me.ClientSize = New System.Drawing.Size(1086, 810)
                Me.Controls.Add(Me.pictureBox9)
                Me.Controls.Add(Me.label4)
                Me.Controls.Add(Me.label3)
                Me.Controls.Add(Me.label2)
                Me.Controls.Add(Me.label15)
                Me.Controls.Add(Me.label1)
                Me.Controls.Add(Me.tabControl1)
                Me.ForeColor = System.Drawing.Color.White
                Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
                Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
                Me.Name = "WindowsForm2"
                Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
                Me.Text = "Rally Of Road"
                Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
                Me.tabControl1.ResumeLayout(false)
                Me.Carte.ResumeLayout(false)
                Me.Magasin.ResumeLayout(false)
                Me.Magasin.PerformLayout
                Me.Garage.ResumeLayout(false)
                Me.groupBox5.ResumeLayout(false)
                CType(Me.pictureBox3,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox10,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox8,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox7,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox6,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox5,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox4,System.ComponentModel.ISupportInitialize).EndInit
                Me.Menu.ResumeLayout(false)
                Me.Menu.PerformLayout
                CType(Me.pictureBox2,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox1,System.ComponentModel.ISupportInitialize).EndInit
                CType(Me.pictureBox9,System.ComponentModel.ISupportInitialize).EndInit
                Me.ResumeLayout(false)
            End Sub
        End Class

        Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
            Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
            Public TempsTimerr As Object '
            Public Sauvegarde_1_ou_2 As Object '
            Public NiveauDePuissance As Object '
            Public ImageSonsOuPas As Object '
            Public EcranNoirplus As Object '
            Public CheatsCodeTrueOrFalse As Object '
            Public Argent As Object '
            Public ActiverMusiqueOuPas As Object '
            Public GipsePourRallyOfRoad As System.Drawing.Image = My.Resources.GipsePourRallyOfRoad ' Ressource GipsePourRallyOfRoad
            Public Bouton_Quitter As System.Drawing.Image = My.Resources.Bouton_Quitter ' Ressource Bouton_Quitter
            Public Bouton_Quitter2 As System.Drawing.Image = My.Resources.Bouton_Quitter2 ' Ressource Bouton_Quitter2
            Public Bouton_Quitter3 As System.Drawing.Image = My.Resources.Bouton_Quitter3 ' Ressource Bouton_Quitter3
            Public Copie_de_drift_mustang_falken1 As System.Drawing.Image = My.Resources.Copie_de_drift_mustang_falken1 ' Ressource Copie_de_drift_mustang_falken1
            Public Save_2 As System.Drawing.Image = My.Resources.Save_2 ' Ressource Save_2
            Public Save_1 As System.Drawing.Image = My.Resources.Save_1 ' Ressource Save_1
            Public Carte_de_la_ville As System.Drawing.Image = My.Resources.Carte_de_la_ville ' Ressource Carte_de_la_ville
            Public citroinne As System.Drawing.Image = My.Resources.citroinne ' Ressource citroinne
            Public volvo_xc60_f4 As System.Drawing.Image = My.Resources.volvo_xc60_f4 ' Ressource volvo_xc60_f4
            Public Begatti As System.Drawing.Image = My.Resources.Begatti ' Ressource Begatti
            Public Parche As System.Drawing.Image = My.Resources.Parche ' Ressource Parche
            Public Firarri As System.Drawing.Image = My.Resources.Firarri ' Ressource Firarri
            Public chavrolet As System.Drawing.Image = My.Resources.chavrolet ' Ressource chavrolet
            Public Sons3 As System.Drawing.Image = My.Resources.Sons3 ' Ressource Sons3
            Public Sons As System.Drawing.Image = My.Resources.Sons ' Ressource Sons
            Public Sons1 As System.Drawing.Image = My.Resources.Sons1 ' Ressource Sons1
            Public Sons2 As System.Drawing.Image = My.Resources.Sons2 ' Ressource Sons2
            Public ALL_ARGUMENTS_APPLICATIONS() As Object = New Object(-1){}
            Public ALLUSERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("ALLUSERPROFILE"))
            Public APPDATA As Object = CStr(Environment.GetEnvironmentVariable("APPDATA"))
            Public CLASSPATH As Object = CStr(Environment.GetEnvironmentVariable("CLASSPATH"))
            Public CommonProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("CommonProgramFiles"))
            Public COMPUTERNAME As Object = CStr(Environment.GetEnvironmentVariable("COMPUTERNAME"))
            Public ComSpec As Object = CStr(Environment.GetEnvironmentVariable("ComSpec"))
            Public FP_NO_HOST_CHECK As Object = CStr(Environment.GetEnvironmentVariable("FP_NO_HOST_CHECK"))
            Public HOMEDRIVE As Object = CStr(Environment.GetEnvironmentVariable("HOMEDRIVE"))
            Public HOMEPATH As Object = CStr(Environment.GetEnvironmentVariable("HOMEPATH"))
            Public LOCALAPPDATA As Object = CStr(Environment.GetEnvironmentVariable("LOCALAPPDATA"))
            Public LOGONSERVER As Object = CStr(Environment.GetEnvironmentVariable("LOGONSERVER"))
            Public NUMBER_OF_PROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBER_OF_PROCESSORS"))
            Public OS As Object = CStr(Environment.GetEnvironmentVariable("OS"))
            Public PATH As Object = CStr(Environment.GetEnvironmentVariable("PATH"))
            Public PATHEXT As Object = CStr(Environment.GetEnvironmentVariable("PATHEXT"))
            Public PROCESSOR_ARCHITECTURE As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE"))
            Public PROCESSOR_IDENTIFIER As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_IDENTIFIER"))
            Public PROCESSOR_LEVEL As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_LEVEL"))
            Public PROCESSOR_REVISION As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_REVISION"))
            Public ProgramData As Object = CStr(Environment.GetEnvironmentVariable("ProgramData"))
            Public ProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("ProgramFiles"))
            Public [PUBLIC] As Object = CStr(Environment.GetEnvironmentVariable("PUBLIC"))
            Public SESSIONNAME As Object = CStr(Environment.GetEnvironmentVariable("SESSIONNAME"))
            Public SystemDrive As Object = CStr(Environment.GetEnvironmentVariable("SystemDrive"))
            Public SystemRoot As Object = CStr(Environment.GetEnvironmentVariable("SystemRoot"))
            Public TEMP As Object = CStr(Environment.GetEnvironmentVariable("TEMP"))
            Public TMP As Object = CStr(Environment.GetEnvironmentVariable("TMP"))
            Public USERDOMAIN As Object = CStr(Environment.GetEnvironmentVariable("USERDOMAIN"))
            Public USERNAME As Object = CStr(Environment.GetEnvironmentVariable("USERNAME"))
            Public USERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("USERPROFILES"))
            Public windir As Object = CStr(Environment.GetEnvironmentVariable("windir"))
        End Module

        Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_FORMS_SOFTWAREZATOR_VARIABLES
    Private _WindowsForm1 As WindowsForm1_f = New WindowsForm1_f
    Public Property WindowsForm1 As WindowsForm1_f
    Get
    Return _WindowsForm1
    End Get
    Set(ByVal value As WindowsForm1_f)
    _WindowsForm1 = value
    End Set
    End Property
    Private _WindowsForm2 As WindowsForm2_f = New WindowsForm2_f
    Public Property WindowsForm2 As WindowsForm2_f
    Get
    Return _WindowsForm2
    End Get
    Set(ByVal value As WindowsForm2_f)
    _WindowsForm2 = value
    End Set
    End Property
        End Module



        Partial Public Class WindowsForm1_f

     Public Sub pictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox3.Click
    Try
    Sauvegarde_1_ou_2 = "1"
    If "" <> "Dialog" Then WindowsForm2 = New WindowsForm2_f
     WindowsForm2.Show()
    Me.Visible = false
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox4.Click
    Try
    Sauvegarde_1_ou_2 = "2"
    If "" <> "Dialog" Then WindowsForm2 = New WindowsForm2_f
     WindowsForm2.Show()
    Me.Visible = false
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles timer1.Tick
    Try
    Me.BackgroundImage = Copie_de_drift_mustang_falken1
    Me.pictureBox2.Visible = true
    Me.pictureBox1.Visible = true
    Me.pictureBox3.Visible = true
    Me.pictureBox4.Visible = true
    Me.timer1.Stop()
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub WindowsForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
    Try
    Me.timer1.Start()
    My.Computer.Audio.Play("" & Application.StartupPath & "\astonv8.wav", Microsoft.VisualBasic.AudioPlayMode.Background)
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox2.Click
    Try
    Application.Exit()
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

    Au non ça dépasse encore........ Embarassed Embarassed Embarassed Embarassed Embarassed
    gipse
    gipse
    Habitué
    Habitué


    Masculin Nombre de messages : 575
    Localisation : en face de mon voisin
    Emploi/loisirs : informatique, SZ
    Humeur : je suis heureux grace a SZ !
    Date d'inscription : 19/01/2011

    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par gipse Sam 30 Avr 2011 - 11:47

    Code:
     Public Sub pictureBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles pictureBox2.MouseMove
    Try
    Me.pictureBox2.Image = Bouton_Quitter2
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox2_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox2.MouseLeave
    Try
    Me.pictureBox2.Image = Bouton_Quitter
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles pictureBox2.MouseDown
    Try
    Me.pictureBox2.Image = Bouton_Quitter3
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles pictureBox3.MouseMove
    Try
    Me.progressBar1.Visible = true
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox3_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox3.MouseLeave
    Try
    Me.progressBar1.Visible = false
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles pictureBox4.MouseMove
    Try
    Me.progressBar2.Visible = true
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox4_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox4.MouseLeave
    Try
    Me.progressBar2.Visible = false
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

        End Class

        Partial Public Class WindowsForm2_f

     Public Sub WindowsForm2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
    Try
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Mon.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\MonC.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionDecrypt)
    ActiverMusiqueOuPas = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\MonC.ikscv", System.Text.Encoding.Default)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\MonC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    Me.label15.Text = "" & ActiverMusiqueOuPas & ""

    ActiverMusiqueOuPas = Nothing

    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Voit.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\VoitC.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionDecrypt)
    ActiverMusiqueOuPas = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\VoitC.ikscv", System.Text.Encoding.Default)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\VoitC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    Me.label2.Text = "Voiture : " & ActiverMusiqueOuPas & ""

    ActiverMusiqueOuPas = Nothing

    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Niv.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\NivC.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionDecrypt)
    ActiverMusiqueOuPas = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\NivC.ikscv", System.Text.Encoding.Default)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\NivC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    Me.label3.Text = "Niveau : " & ActiverMusiqueOuPas & ""

    ActiverMusiqueOuPas = Nothing

    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Man.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionDecrypt)
    ActiverMusiqueOuPas = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", System.Text.Encoding.Default)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    Me.textBoxmanovre.Text = "" & ActiverMusiqueOuPas & ""

    ActiverMusiqueOuPas = Nothing

    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Puis.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionDecrypt)
    ActiverMusiqueOuPas = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", System.Text.Encoding.Default)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    Me.textBoxvitesse.Text = "" & ActiverMusiqueOuPas & ""

    ActiverMusiqueOuPas = Nothing

    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Renf.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionDecrypt)
    ActiverMusiqueOuPas = My.Computer.FileSystem.ReadAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", System.Text.Encoding.Default)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    Me.textBoxrenforcment.Text = "" & ActiverMusiqueOuPas & ""

    ActiverMusiqueOuPas = Nothing

    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button2.Click
    Try
    Application.Exit()
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
    Try
    WindowsForm1.Visible = true
    Me.DialogResult = System.Windows.Forms.DialogResult.None : Me.Close()
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub groupBox4_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles groupBox4.MouseLeave
    Try
    Me.label4.Text = "Explication : "
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub groupBox4_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles groupBox4.MouseMove
    Try
    Me.label4.Text = "Explication : Le Centre Ville." & System.Environment.NewLine & "Ce centre est réservé au pilote or pair car eux seul peuvent zigzagé entre les nombreuses voitures, les camions et autre. Eux sont les meilleur, donc les plus riche car ils gagnent rapidement de l'argent grace a leur rapidité."
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub groupBox3_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles groupBox3.MouseMove
    Try
    Me.label4.Text = "Explication : Quartier Historique." & System.Environment.NewLine & "Ce quartier, comme son nom l'indique, est le plus vieux. En effet, ici il y a les plus anciennes maisons. Ainsi que beaucoup de vielles voitures lentes, ce qui rend la route complexe."
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub groupBox2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles groupBox2.MouseMove
    Try
    Me.label4.Text = "Explication : La Ville Basse." & System.Environment.NewLine & "La Ville Basse est le quartier pauvre de la ville. Il y a beaucoup d'adepte aux courses et la plupart étaient riche avant de perdre toute leur argent dans des courses."
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub groupBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles groupBox1.MouseMove
    Try
    Me.label4.Text = "Explication : La Campagne." & System.Environment.NewLine & "Partie isolé où les voitures sont lentes et où la route n'est pas dangereuse, ici il est facile de gagner des courses mais elles ne rapportent pas grand chose... "
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button3.Click
    Try
    CheatsCodeTrueOrFalse = Me.textBox1.Text
    If CheatsCodeTrueOrFalse = "maxfric" Then
    Me.label15.Text = "999"
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub groupBox1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles groupBox1.MouseLeave
    Try
    Me.label4.Text = "Explication : "
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub groupBox2_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles groupBox2.MouseLeave
    Try
    Me.label4.Text = "Explication : "
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub groupBox3_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles groupBox3.MouseLeave
    Try
    Me.label4.Text = "Explication : "
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub BoutonAcheter1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles BoutonAcheter1.Click
    Try
    Argent = Me.label15.Text
    If Argent < 100 Then
    Me.label16.Text = "Tu n'as pas assez d'argent, fait quelque course et tu aura ce trésor !"
    Else
    Me.label16.Text = "C'est acheter et placé sur ta voiture !"
    NiveauDePuissance = Me.textBoxvitesse.Text
    NiveauDePuissance = NiveauDePuissance + 10
    Me.textBoxvitesse.Text = "" & NiveauDePuissance & ""

    My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", "" & NiveauDePuissance & "", False)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Puis.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Puis.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionEncrypt)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    ActiverMusiqueOuPas = Nothing
    Argent = Argent - 100
    Me.label15.Text = "" & Argent & ""
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub BoutonAcheter2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles BoutonAcheter2.Click
    Try
    Argent = Me.label15.Text
    If Argent < 180 Then
    Me.label16.Text = "Tu n'as pas assez d'argent, fait quelque course et tu aura ce trésor !"
    Else
    Me.label16.Text = "C'est acheter et placé sur ta voiture !"
    NiveauDePuissance = Me.textBoxvitesse.Text
    NiveauDePuissance = NiveauDePuissance + 50
    Me.textBoxvitesse.Text = "" & NiveauDePuissance & ""

    My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", "" & NiveauDePuissance & "", False)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Puis.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Puis.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionEncrypt)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    ActiverMusiqueOuPas = Nothing
    Argent = Argent - 180
    Me.label15.Text = "" & Argent & ""
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub BoutonAcheter3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles BoutonAcheter3.Click
    Try
    Argent = Me.label15.Text
    If Argent < 260 Then
    Me.label16.Text = "Tu n'as pas assez d'argent, fait quelque course et tu aura ce trésor !"
    Else
    Me.label16.Text = "C'est acheter et placé sur ta voiture !"
    NiveauDePuissance = Me.textBoxvitesse.Text
    NiveauDePuissance = NiveauDePuissance + 100
    Me.textBoxvitesse.Text = "" & NiveauDePuissance & ""
    My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", "" & NiveauDePuissance & "", False)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Puis.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Puis.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionEncrypt)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\PuisC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    ActiverMusiqueOuPas = Nothing
    Argent = Argent - 260
    Me.label15.Text = "" & Argent & ""
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub BoutonAcheter4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles BoutonAcheter4.Click
    Try
    Argent = Me.label15.Text
    If Argent < 70 Then
    Me.label16.Text = "Tu n'as pas assez d'argent, fait quelque course et tu aura ce trésor !"
    Else
    Me.label16.Text = "C'est acheter et placé sur ta voiture !"
    NiveauDePuissance = Me.textBoxmanovre.Text
    NiveauDePuissance = NiveauDePuissance + 1
    Me.textBoxmanovre.Text = "" & NiveauDePuissance & ""
    My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", "" & NiveauDePuissance & "", False)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Man.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Man.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionEncrypt)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    ActiverMusiqueOuPas = Nothing
    Argent = Argent - 70
    Me.label15.Text = "" & Argent & ""
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub BoutonAcheter5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles BoutonAcheter5.Click
    Try
    Argent = Me.label15.Text
    If Argent < 140 Then
    Me.label16.Text = "Tu n'as pas assez d'argent, fait quelque course et tu aura ce trésor !"
    Else
    Me.label16.Text = "C'est acheter et placé sur ta voiture !"
    NiveauDePuissance = Me.textBoxmanovre.Text
    NiveauDePuissance = NiveauDePuissance + 2
    Me.textBoxmanovre.Text = "" & NiveauDePuissance & ""
    My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", "" & NiveauDePuissance & "", False)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Man.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Man.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionEncrypt)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    ActiverMusiqueOuPas = Nothing
    Argent = Argent - 140
    Me.label15.Text = "" & Argent & ""
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub BoutonAcheter6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles BoutonAcheter6.Click
    Try
    Argent = Me.label15.Text
    If Argent < 190 Then
    Me.label16.Text = "Tu n'as pas assez d'argent, fait quelque course et tu aura ce trésor !"
    Else
    Me.label16.Text = "C'est acheter et placé sur ta voiture !"
    NiveauDePuissance = Me.textBoxmanovre.Text
    NiveauDePuissance = NiveauDePuissance + 3
    Me.textBoxmanovre.Text = "" & NiveauDePuissance & ""
    My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", "" & NiveauDePuissance & "", False)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Man.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Man.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionEncrypt)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\ManC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    ActiverMusiqueOuPas = Nothing
    Argent = Argent - 190
    Me.label15.Text = "" & Argent & ""
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub BoutonAcheter7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles BoutonAcheter7.Click
    Try
    Argent = Me.label15.Text
    If Argent < 150 Then
    Me.label16.Text = "Tu n'as pas assez d'argent, fait quelque course et tu aura ce trésor !"
    Else
    Me.label16.Text = "C'est acheter et placé sur ta voiture !"
    NiveauDePuissance = Me.textBoxrenforcment.Text
    NiveauDePuissance = NiveauDePuissance + 1
    Me.textBoxrenforcment.Text = "" & NiveauDePuissance & ""
    My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", "" & NiveauDePuissance & "", False)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Renf.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Renf.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionEncrypt)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    ActiverMusiqueOuPas = Nothing
    Argent = Argent - 150
    Me.label15.Text = "" & Argent & ""
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub BoutonAcheter8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles BoutonAcheter8.Click
    Try
    Argent = Me.label15.Text
    If Argent < 230 Then
    Me.label16.Text = "Tu n'as pas assez d'argent, fait quelque course et tu aura ce trésor !"
    Else
    Me.label16.Text = "C'est acheter et placé sur ta voiture !"
    NiveauDePuissance = Me.textBoxrenforcment.Text
    NiveauDePuissance = NiveauDePuissance + 2
    Me.textBoxrenforcment.Text = "" & NiveauDePuissance & ""
    My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", "" & NiveauDePuissance & "", False)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Renf.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Renf.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionEncrypt)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    ActiverMusiqueOuPas = Nothing
    Argent = Argent - 230
    Me.label15.Text = "" & Argent & ""
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub BoutonAcheter9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles BoutonAcheter9.Click
    Try
    Argent = Me.label15.Text
    If Argent < 280 Then
    Me.label16.Text = "Tu n'as pas assez d'argent, fait quelque course et tu aura ce trésor !"
    Else
    Me.label16.Text = "C'est acheter et placé sur ta voiture !"
    NiveauDePuissance = Me.textBoxrenforcment.Text
    NiveauDePuissance = NiveauDePuissance + 3
    Me.textBoxrenforcment.Text = "" & NiveauDePuissance & ""
    My.Computer.FileSystem.WriteAllText("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", "" & NiveauDePuissance & "", False)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Renf.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    VelerSoftware_GeneralPlugin_Encrypter_Fichier.EncryptOrDecryptFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", "" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\Renf.ikscv", CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateKey("mdp"), Byte()), CType(VelerSoftware_GeneralPlugin_Encrypter_Fichier.CreateIV("mdp"), Byte()), VelerSoftware_GeneralPlugin_Encrypter_Fichier.CryptoAction.ActionEncrypt)
    My.Computer.FileSystem.DeleteFile("" & Application.StartupPath & "\Sauv_" & Sauvegarde_1_ou_2 & "\RenfC.ikscv", Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.RecycleOption.DeletePermanently)
    ActiverMusiqueOuPas = Nothing
    Argent = Argent - 280
    Me.label15.Text = "" & Argent & ""
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox7_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles pictureBox7.MouseMove
    Try
    Me.label30.Text = "Vitesse : 50"
    Me.label32.Text = "Manoevre : 10"
    Me.label31.Text = "Renforcement : 0"
    Me.label33.Text = "La Citroinne n'est pas très bien pour les courses mais elle n'est pas chere..."
    Me.label34.Text = "Prix : 100 €"
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox7_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox7.MouseLeave
    Try
    Me.label30.Text = "Vitesse : ."
    Me.label33.Text = "Passer la sourie sur une photo pour des infos"
    Me.label31.Text = "Renforcement : ."
    Me.label32.Text = "Manoevre : ."
    Me.label34.Text = "Prix : ."
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles timer1.Tick
    Try
    If TempsTimerr = 1 Then
    End If
    If TempsTimerr = 2 Then
    End If
    If TempsTimerr = 3 Then
    End If
    If TempsTimerr = 4 Then
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox9_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles pictureBox9.MouseMove
    Try
    ImageSonsOuPas = Me.pictureBox9.Image
    If ImageSonsOuPas = Sons Then
    Me.pictureBox9.Image = Sons1
    End If
    If ImageSonsOuPas = Sons2 Then
    Me.pictureBox9.Image = Sons3
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox9_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox9.MouseLeave
    Try
    ImageSonsOuPas = Me.pictureBox9.Image
    If ImageSonsOuPas = Sons1 Then
    Me.pictureBox9.Image = Sons
    End If
    If ImageSonsOuPas = Sons3 Then
    Me.pictureBox9.Image = Sons2
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

     Public Sub pictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles pictureBox9.Click
    Try
    ImageSonsOuPas = Me.pictureBox9.Image
    If ImageSonsOuPas = Sons1 Then
    Me.pictureBox9.Image = Sons3
    End If
    If ImageSonsOuPas = Sons3 Then
    Me.pictureBox9.Image = Sons1
    End If
    Catch err As Exception
    System.Windows.Forms.MessageBox.Show(Err.Message, "GuerreGame", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
    End Sub

        End Class


    Public Class VelerSoftware_GeneralPlugin_Encrypter_Fichier

        ' Créer une clé
        Shared Function CreateKey(ByVal strPassword As String) As Byte()
            Dim chrData() As Char = strPassword.ToCharArray
            Dim intLength As Integer = chrData.GetUpperBound(0)
            Dim bytDataToHash(intLength) As Byte
            For i As Integer = 0 To chrData.GetUpperBound(0)
                bytDataToHash(i) = CByte(Microsoft.VisualBasic.Asc(chrData(i)))
            Next
            Dim SHA512 As New System.Security.Cryptography.SHA512Managed
            Dim bytResult As Byte() = SHA512.ComputeHash(bytDataToHash)
            Dim bytKey(31) As Byte
            For i As Integer = 0 To 31
                bytKey(i) = bytResult(i)
            Next
            Return bytKey
        End Function

        ' Créer un IV
        Shared Function CreateIV(ByVal strPassword As String) As Byte()
            Dim chrData() As Char = strPassword.ToCharArray
            Dim intLength As Integer = chrData.GetUpperBound(0)
            Dim bytDataToHash(intLength) As Byte
            For i As Integer = 0 To chrData.GetUpperBound(0)
                bytDataToHash(i) = CByte(Microsoft.VisualBasic.Asc(chrData(i)))
            Next
            Dim SHA512 As New System.Security.Cryptography.SHA512Managed
            Dim bytResult As Byte() = SHA512.ComputeHash(bytDataToHash)
            Dim bytIV(15) As Byte
            For i As Integer = 32 To 47
                bytIV(i - 32) = bytResult(i)
            Next
            Return bytIV
        End Function

        Public Enum CryptoAction
            ActionEncrypt = 1
            ActionDecrypt = 2
        End Enum

        ' Encrypter/Décrypter un fichier
        Shared Sub EncryptOrDecryptFile(ByVal strInputFile As String, ByVal strOutputFile As String, ByVal bytKey() As Byte, ByVal bytIV() As Byte, ByVal Direction As CryptoAction)
            Dim fsInput As System.IO.FileStream
            Dim fsOutput As System.IO.FileStream
            fsInput = New System.IO.FileStream(strInputFile, System.IO.FileMode.Open, System.IO.FileAccess.Read)
            fsOutput = New System.IO.FileStream(strOutputFile, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
            fsOutput.SetLength(0)
            Dim bytBuffer(4096) As Byte
            Dim lngBytesProcessed As Long = 0
            Dim lngFileLength As Long = fsInput.Length
            Dim intBytesInCurrentBlock As Integer
            Dim csCryptoStream As System.Security.Cryptography.CryptoStream
            Dim cspRijndael As New System.Security.Cryptography.RijndaelManaged
            Select Case Direction
                Case CryptoAction.ActionEncrypt
                    csCryptoStream = New System.Security.Cryptography.CryptoStream(fsOutput, _
                    cspRijndael.CreateEncryptor(bytKey, bytIV), _
                    System.Security.Cryptography.CryptoStreamMode.Write)
                    While lngBytesProcessed < lngFileLength
                        intBytesInCurrentBlock = fsInput.Read(bytBuffer, 0, 4096)
                        csCryptoStream.Write(bytBuffer, 0, intBytesInCurrentBlock)
                        lngBytesProcessed = lngBytesProcessed + CLng(intBytesInCurrentBlock)
                    End While
                    csCryptoStream.Close()

                Case CryptoAction.ActionDecrypt
                    csCryptoStream = New System.Security.Cryptography.CryptoStream(fsOutput, _
                    cspRijndael.CreateDecryptor(bytKey, bytIV), _
                    System.Security.Cryptography.CryptoStreamMode.Write)
                    While lngBytesProcessed < lngFileLength
                        intBytesInCurrentBlock = fsInput.Read(bytBuffer, 0, 4096)
                        csCryptoStream.Write(bytBuffer, 0, intBytesInCurrentBlock)
                        lngBytesProcessed = lngBytesProcessed + CLng(intBytesInCurrentBlock)
                    End While
                    csCryptoStream.Close()
            End Select
            fsInput.Close()
            fsOutput.Close()
        End Sub

    End Class

    End Namespace

    Namespace My.Resources

        'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder.
        '''<summary>
        '''  Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
        '''</summary>
        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
        Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
        Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
        Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
        Public Module Resources

            Private resourceMan As Global.System.Resources.ResourceManager

            Private resourceCulture As Global.System.Globalization.CultureInfo

            '''<summary>
            '''  Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
            '''</summary>
            <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
            Public ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
                Get
                    If Object.ReferenceEquals(resourceMan, Nothing) Then
                        Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("GuerreGame.Resources", GetType(Resources).Assembly)
                        resourceMan = temp
                    End If
                    Return resourceMan
                End Get
            End Property

            '''<summary>
            '''  Remplace la propriété CurrentUICulture du thread actuel pour toutes
            '''  les recherches de ressources à l'aide de cette classe de ressource fortement typée.
            '''</summary>
            <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
            Public Property Culture() As Global.System.Globalization.CultureInfo
                Get
                    Return resourceCulture
                End Get
                Set(ByVal value As Global.System.Globalization.CultureInfo)
                    resourceCulture = value
                End Set
            End Property

    Public ReadOnly Property GipsePourRallyOfRoad() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("GipsePourRallyOfRoad", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Bouton_Quitter() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Bouton_Quitter", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Bouton_Quitter2() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Bouton_Quitter2", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Bouton_Quitter3() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Bouton_Quitter3", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Copie_de_drift_mustang_falken1() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Copie_de_drift_mustang_falken1", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Save_2() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Save_2", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Save_1() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Save_1", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Carte_de_la_ville() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Carte_de_la_ville", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property citroinne() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("citroinne", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property volvo_xc60_f4() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("volvo_xc60_f4", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Begatti() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Begatti", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Parche() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Parche", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Firarri() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Firarri", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property chavrolet() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("chavrolet", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Sons3() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Sons3", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Sons() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Sons", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Sons1() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Sons1", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property

    Public ReadOnly Property Sons2() As System.Drawing.Bitmap
    Get
    Dim obj As Object = ResourceManager.GetObject("Sons2", resourceCulture)
    Return CType(obj,System.Drawing.Bitmap)
    End Get
    End Property


    End Module
    End Namespace
    dimi88
    dimi88
    Nouveau
    Nouveau


    Masculin Nombre de messages : 87
    Date d'inscription : 10/11/2010

    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par dimi88 Sam 30 Avr 2011 - 11:52

    ça c'est un rapport d'erreur !!! Je vois mal quelqu'un se taper tout ça pour voir où est l'erreur mais enfin sait-on jamais peut-être une âme charitable et talentueuse avec ça voudra se penché en profondeur dans cette erreur.
    Admin
    Admin
    Administrateur
    Administrateur


    Masculin Nombre de messages : 1882
    Age : 32
    Localisation : Boulogne Billancourt(92100)(France)
    Emploi/loisirs : Software Development Engineer
    Date d'inscription : 24/01/2008

    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par Admin Sam 30 Avr 2011 - 11:58

    Bonjour,

    le problème vient d'une condition :
    j'imagine que tu essayes de tester si TonImage1 est égale à TonImage2.
    On ne peux pas comparer deux images avec SZ. Il n'est pas possible de savoir si une image est égale à une autre actuellement.
    Il faudra passer par un autre moyen. Utiliser des variables qui, lorsque tu défini une image, change (avec une valeur textuelle par exemple), afin de savoir quel image est affiché dans tes PictureBox?

    Voila Smile

    Dimi88 ==> Disons que quand on sait les analyser, et qu'on en a déjà analysé 30, on sait ou chercher et ça devient alors très rapide amusé
    gipse
    gipse
    Habitué
    Habitué


    Masculin Nombre de messages : 575
    Localisation : en face de mon voisin
    Emploi/loisirs : informatique, SZ
    Humeur : je suis heureux grace a SZ !
    Date d'inscription : 19/01/2011

    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par gipse Sam 30 Avr 2011 - 12:14

    Merci mais en fait je fait obtenir la propriété .image de mon picturebox et après je fait une condition pour voir si cette variable est égale a une image.
    Donc d'après toi je dois dire que c'est du texte est ça va marcher ?
    Admin
    Admin
    Administrateur
    Administrateur


    Masculin Nombre de messages : 1882
    Age : 32
    Localisation : Boulogne Billancourt(92100)(France)
    Emploi/loisirs : Software Development Engineer
    Date d'inscription : 24/01/2008

    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par Admin Sam 30 Avr 2011 - 12:18

    Non non, j'imagine plutôt quelque chose comme ceci :
    - Modifier la propriété .Image et mettre MonImage1
    - Modifier la variable NomActuel = "C'est Mon Image 1"

    Et à la place d'obtenir la propriété et de tester, tu met plutôt :
    - Si NomAcutel = "C'est Mon Image 1", alors ...etc
    dimi88
    dimi88
    Nouveau
    Nouveau


    Masculin Nombre de messages : 87
    Date d'inscription : 10/11/2010

    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par dimi88 Sam 30 Avr 2011 - 12:21

    D'accord Étienne mais disons qu'au premier point de vue c'est plutôt impressionnant a analysé
    gipse
    gipse
    Habitué
    Habitué


    Masculin Nombre de messages : 575
    Localisation : en face de mon voisin
    Emploi/loisirs : informatique, SZ
    Humeur : je suis heureux grace a SZ !
    Date d'inscription : 19/01/2011

    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par gipse Sam 30 Avr 2011 - 12:48

    Ah ouais pas con merci Étienne Very Happy

    Contenu sponsorisé


    Erreur inderterminé : encore une... Empty Re: Erreur inderterminé : encore une...

    Message par Contenu sponsorisé


      La date/heure actuelle est Dim 24 Nov 2024 - 1:01