Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


Erreur inderterminé : encore une...

Partagez
avatar
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...

Message par gipse le 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



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
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

Re: Erreur inderterminé : encore une...

Message par gipse le 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



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
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

Re: Erreur inderterminé : encore une...

Message par gipse le 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



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
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

Re: Erreur inderterminé : encore une...

Message par gipse le 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



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
dimi88
Nouveau
Nouveau

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

Re: Erreur inderterminé : encore une...

Message par dimi88 le 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.



SoftwareZator et un des meilleurs logiciel sur lesquels j'ai pus tomber Very Happy
avatar
Admin
Administrateur
Administrateur

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

Re: Erreur inderterminé : encore une...

Message par Admin le 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é



Les 4 règles d'or du forum : Bonjour, Merci, Pas de SMS, Et un petit "[RESOLU]" dans le titre du sujet quand le problème est réglé. Wink

Etienne

Site internet : http://www.velersoftware.com
Twitter : http://twitter.com/VelerSoftware
avatar
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

Re: Erreur inderterminé : encore une...

Message par gipse le 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 ?



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr
avatar
Admin
Administrateur
Administrateur

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

Re: Erreur inderterminé : encore une...

Message par Admin le 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



Les 4 règles d'or du forum : Bonjour, Merci, Pas de SMS, Et un petit "[RESOLU]" dans le titre du sujet quand le problème est réglé. Wink

Etienne

Site internet : http://www.velersoftware.com
Twitter : http://twitter.com/VelerSoftware
avatar
dimi88
Nouveau
Nouveau

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

Re: Erreur inderterminé : encore une...

Message par dimi88 le Sam 30 Avr 2011 - 12:21

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



SoftwareZator et un des meilleurs logiciel sur lesquels j'ai pus tomber Very Happy
avatar
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

Re: Erreur inderterminé : encore une...

Message par gipse le Sam 30 Avr 2011 - 12:48

Ah ouais pas con merci Étienne Very Happy



"Mes logiciel - clic ici":

Multi Modificateur est disponible là : http://forumvelersoftware.bbactif.com/t763-multi-modifiateur drunken . Multi Modificateur est un générateur de code VB.NET.

File Express est un gestionnaire de fichier.

"Mes tuto - clic ici:

Mon site : http://lesitedegipse.forumotion.com/Le-Site-De-Gipse-b1.htm
Me contacter à cette adresse : GipseSZ@yahoo.fr

Contenu sponsorisé

Re: Erreur inderterminé : encore une...

Message par Contenu sponsorisé


    La date/heure actuelle est Mer 17 Oct 2018 - 22:33