Le calcul au primaire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 266 fois - Téléchargée 28 fois

Contenu du snippet

permet aux enfants de revise ou d'apprendre les operations courante

Source / Exemple :


Public Class FORM1

    Inherits System.WINDOWS.FORMS.Form
    Dim RESULTAT, RESULTAT1 As Integer
    Dim RI1, RI2, RI3, RI4 As Integer
    Dim A, B As Integer
    Dim A1, A2, A3, A4, A31, A21 As Integer
    Dim B1, B2, B3, B4, B21, B31 As Integer
    Dim R1, R2, R3, R4 As Integer
    Dim L1$, LO1$

    Dim LON As Integer
    Dim PRENOM$
#Region " CODE GÉNÉRÉ PAR LE CONCEPTEUR WINDOWS FORM "

    Public Sub New()
        MyBase.NEW()

        'CET APPEL EST REQUIS PAR LE CONCEPTEUR WINDOWS FORM.
        INITIALIZECOMPONENT()

        'AJOUTEZ UNE INITIALISATION QUELCONQUE APRÈS L'APPEL INITIALIZECOMPONENT()

    End Sub

    'LA MÉTHODE SUBSTITUÉE DISPOSE DU FORMULAIRE POUR NETTOYER LA LISTE DES COMPOSANTS.
    Protected Overloads Overrides Sub DISPOSE(ByVal DISPOSING As Boolean)
        If DISPOSING Then
            If Not (COMPONENTS Is Nothing) Then
                COMPONENTS.Dispose()
            End If
        End If
        MyBase.Dispose(DISPOSING)
    End Sub

    'REQUIS PAR LE CONCEPTEUR WINDOWS FORM
    Private COMPONENTS As System.COMPONENTMODEL.IContainer

    'REMARQUE : LA PROCÉDURE SUIVANTE EST REQUISE PAR LE CONCEPTEUR WINDOWS FORM
    'ELLE PEUT ÊTRE MODIFIÉE EN UTILISANT LE CONCEPTEUR WINDOWS FORM.
    'NE LA MODIFIEZ PAS EN UTILISANT L'ÉDITEUR DE CODE.
    Friend WithEvents TABCONTROL1 As System.WINDOWS.FORMS.TabControl
    Friend WithEvents TABPAGE1 As System.WINDOWS.FORMS.TabPage
    Friend WithEvents TABPAGE2 As System.WINDOWS.FORMS.TabPage
    Friend WithEvents TABPAGE3 As System.WINDOWS.FORMS.TabPage
    Friend WithEvents TABPAGE5 As System.WINDOWS.FORMS.TabPage
    Friend WithEvents TABPAGE6 As System.WINDOWS.FORMS.TabPage
    Friend WithEvents LABEL1 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX1 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX2 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX3 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents LABEL2 As System.WINDOWS.FORMS.Label
    Friend WithEvents BUTTON1 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON2 As System.WINDOWS.FORMS.Button
    Friend WithEvents TEXTBOX5 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX6 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX8 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX9 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX10 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX11 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents BUTTON3 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON4 As System.WINDOWS.FORMS.Button
    Friend WithEvents LABEL3 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX12 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX13 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX14 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX15 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX16 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX17 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents BUTTON5 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON6 As System.WINDOWS.FORMS.Button
    Friend WithEvents LABEL4 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX19 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX20 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX21 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX22 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX23 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents LABEL5 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX24 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents LABEL6 As System.WINDOWS.FORMS.Label
    Friend WithEvents BUTTON7 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON8 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON9 As System.WINDOWS.FORMS.Button
    Friend WithEvents LABEL7 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX4 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents LABEL10 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL11 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL12 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX25 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents LABEL13 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX26 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX27 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX28 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX29 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents LABEL14 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL15 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL16 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL8 As System.WINDOWS.FORMS.Label
    Friend WithEvents BUTTON10 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON11 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON12 As System.WINDOWS.FORMS.Button
    Friend WithEvents LABEL9 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL17 As System.WINDOWS.FORMS.Label
    Friend WithEvents BUTTON13 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON14 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON15 As System.WINDOWS.FORMS.Button
    Friend WithEvents LABEL18 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL19 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL20 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL21 As System.WINDOWS.FORMS.Label
    Friend WithEvents LABEL22 As System.WINDOWS.FORMS.Label
    Friend WithEvents BUTTON17 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON18 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON19 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON16 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON20 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON21 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON22 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON23 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON24 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON25 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON26 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON27 As System.WINDOWS.FORMS.Button
    Friend WithEvents BUTTON28 As System.WINDOWS.FORMS.Button
    Friend WithEvents LABEL23 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX18 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents BUTTON29 As System.WINDOWS.FORMS.Button
    Friend WithEvents LABEL24 As System.WINDOWS.FORMS.Label
    Friend WithEvents NUMERICUPDOWN1 As System.WINDOWS.FORMS.NumericUpDown
    Friend WithEvents LABEL26 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX7 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents LABEL27 As System.WINDOWS.FORMS.Label
    Friend WithEvents TEXTBOX30 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents TEXTBOX31 As System.WINDOWS.FORMS.TextBox
    Friend WithEvents LABEL28 As System.WINDOWS.FORMS.Label
    <System.DIAGNOSTICS.DEBUGGERSTEPTHROUGH()> Private Sub INITIALIZECOMPONENT()
        Me.TABCONTROL1 = New System.Windows.Forms.TabControl
        Me.TABPAGE6 = New System.Windows.Forms.TabPage
        Me.TEXTBOX25 = New System.Windows.Forms.TextBox
        Me.LABEL13 = New System.Windows.Forms.Label
        Me.LABEL1 = New System.Windows.Forms.Label
        Me.TABPAGE3 = New System.Windows.Forms.TabPage
        Me.TEXTBOX31 = New System.Windows.Forms.TextBox
        Me.LABEL28 = New System.Windows.Forms.Label
        Me.LABEL19 = New System.Windows.Forms.Label
        Me.LABEL20 = New System.Windows.Forms.Label
        Me.LABEL21 = New System.Windows.Forms.Label
        Me.LABEL17 = New System.Windows.Forms.Label
        Me.BUTTON13 = New System.Windows.Forms.Button
        Me.BUTTON14 = New System.Windows.Forms.Button
        Me.BUTTON15 = New System.Windows.Forms.Button
        Me.LABEL18 = New System.Windows.Forms.Label
        Me.TEXTBOX24 = New System.Windows.Forms.TextBox
        Me.LABEL5 = New System.Windows.Forms.Label
        Me.TEXTBOX23 = New System.Windows.Forms.TextBox
        Me.TEXTBOX22 = New System.Windows.Forms.TextBox
        Me.TEXTBOX15 = New System.Windows.Forms.TextBox
        Me.TEXTBOX16 = New System.Windows.Forms.TextBox
        Me.TEXTBOX17 = New System.Windows.Forms.TextBox
        Me.BUTTON5 = New System.Windows.Forms.Button
        Me.BUTTON6 = New System.Windows.Forms.Button
        Me.LABEL4 = New System.Windows.Forms.Label
        Me.TEXTBOX19 = New System.Windows.Forms.TextBox
        Me.TEXTBOX20 = New System.Windows.Forms.TextBox
        Me.TEXTBOX21 = New System.Windows.Forms.TextBox
        Me.TABPAGE2 = New System.Windows.Forms.TabPage
        Me.TEXTBOX30 = New System.Windows.Forms.TextBox
        Me.LABEL27 = New System.Windows.Forms.Label
        Me.LABEL14 = New System.Windows.Forms.Label
        Me.LABEL15 = New System.Windows.Forms.Label
        Me.LABEL16 = New System.Windows.Forms.Label
        Me.TEXTBOX26 = New System.Windows.Forms.TextBox
        Me.TEXTBOX27 = New System.Windows.Forms.TextBox
        Me.TEXTBOX28 = New System.Windows.Forms.TextBox
        Me.TEXTBOX29 = New System.Windows.Forms.TextBox
        Me.LABEL8 = New System.Windows.Forms.Label
        Me.BUTTON10 = New System.Windows.Forms.Button
        Me.BUTTON11 = New System.Windows.Forms.Button
        Me.BUTTON12 = New System.Windows.Forms.Button
        Me.LABEL9 = New System.Windows.Forms.Label
        Me.TEXTBOX8 = New System.Windows.Forms.TextBox
        Me.TEXTBOX9 = New System.Windows.Forms.TextBox
        Me.TEXTBOX10 = New System.Windows.Forms.TextBox
        Me.TEXTBOX11 = New System.Windows.Forms.TextBox
        Me.BUTTON3 = New System.Windows.Forms.Button
        Me.BUTTON4 = New System.Windows.Forms.Button
        Me.LABEL3 = New System.Windows.Forms.Label
        Me.TEXTBOX12 = New System.Windows.Forms.TextBox
        Me.TEXTBOX13 = New System.Windows.Forms.TextBox
        Me.TEXTBOX14 = New System.Windows.Forms.TextBox
        Me.TABPAGE1 = New System.Windows.Forms.TabPage
        Me.LABEL26 = New System.Windows.Forms.Label
        Me.NUMERICUPDOWN1 = New System.Windows.Forms.NumericUpDown
        Me.LABEL12 = New System.Windows.Forms.Label
        Me.LABEL11 = New System.Windows.Forms.Label
        Me.LABEL10 = New System.Windows.Forms.Label
        Me.LABEL7 = New System.Windows.Forms.Label
        Me.BUTTON9 = New System.Windows.Forms.Button
        Me.BUTTON8 = New System.Windows.Forms.Button
        Me.BUTTON7 = New System.Windows.Forms.Button
        Me.LABEL6 = New System.Windows.Forms.Label
        Me.TEXTBOX7 = New System.Windows.Forms.TextBox
        Me.TEXTBOX6 = New System.Windows.Forms.TextBox
        Me.TEXTBOX5 = New System.Windows.Forms.TextBox
        Me.TEXTBOX4 = New System.Windows.Forms.TextBox
        Me.BUTTON2 = New System.Windows.Forms.Button
        Me.BUTTON1 = New System.Windows.Forms.Button
        Me.LABEL2 = New System.Windows.Forms.Label
        Me.TEXTBOX3 = New System.Windows.Forms.TextBox
        Me.TEXTBOX2 = New System.Windows.Forms.TextBox
        Me.TEXTBOX1 = New System.Windows.Forms.TextBox
        Me.TABPAGE5 = New System.Windows.Forms.TabPage
        Me.LABEL24 = New System.Windows.Forms.Label
        Me.BUTTON29 = New System.Windows.Forms.Button
        Me.TEXTBOX18 = New System.Windows.Forms.TextBox
        Me.LABEL23 = New System.Windows.Forms.Label
        Me.BUTTON28 = New System.Windows.Forms.Button
        Me.BUTTON27 = New System.Windows.Forms.Button
        Me.BUTTON26 = New System.Windows.Forms.Button
        Me.BUTTON25 = New System.Windows.Forms.Button
        Me.BUTTON24 = New System.Windows.Forms.Button
        Me.BUTTON23 = New System.Windows.Forms.Button
        Me.BUTTON22 = New System.Windows.Forms.Button
        Me.BUTTON21 = New System.Windows.Forms.Button
        Me.BUTTON20 = New System.Windows.Forms.Button
        Me.BUTTON16 = New System.Windows.Forms.Button
        Me.BUTTON19 = New System.Windows.Forms.Button
        Me.BUTTON18 = New System.Windows.Forms.Button
        Me.BUTTON17 = New System.Windows.Forms.Button
        Me.LABEL22 = New System.Windows.Forms.Label
        Me.TABCONTROL1.SuspendLayout()
        Me.TABPAGE6.SuspendLayout()
        Me.TABPAGE3.SuspendLayout()
        Me.TABPAGE2.SuspendLayout()
        Me.TABPAGE1.SuspendLayout()
        CType(Me.NUMERICUPDOWN1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TABPAGE5.SuspendLayout()
        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.TABPAGE6)
        Me.TABCONTROL1.Controls.Add(Me.TABPAGE3)
        Me.TABCONTROL1.Controls.Add(Me.TABPAGE2)
        Me.TABCONTROL1.Controls.Add(Me.TABPAGE1)
        Me.TABCONTROL1.Controls.Add(Me.TABPAGE5)
        Me.TABCONTROL1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TABCONTROL1.Location = New System.Drawing.Point(0, 0)
        Me.TABCONTROL1.Name = "TABCONTROL1"
        Me.TABCONTROL1.SelectedIndex = 0
        Me.TABCONTROL1.Size = New System.Drawing.Size(792, 534)
        Me.TABCONTROL1.SizeMode = System.Windows.Forms.TabSizeMode.FillToRight
        Me.TABCONTROL1.TabIndex = 0
        Me.TABCONTROL1.TabStop = False
        '
        'TABPAGE6
        '
        Me.TABPAGE6.BackColor = System.Drawing.Color.GreenYellow
        Me.TABPAGE6.Controls.Add(Me.TEXTBOX25)
        Me.TABPAGE6.Controls.Add(Me.LABEL13)
        Me.TABPAGE6.Controls.Add(Me.LABEL1)
        Me.TABPAGE6.Location = New System.Drawing.Point(4, 27)
        Me.TABPAGE6.Name = "TABPAGE6"
        Me.TABPAGE6.Size = New System.Drawing.Size(784, 503)
        Me.TABPAGE6.TabIndex = 5
        Me.TABPAGE6.Text = "CALCUL AU PRIMAIRE"
        '
        'TEXTBOX25
        '
        Me.TEXTBOX25.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX25.Location = New System.Drawing.Point(368, 384)
        Me.TEXTBOX25.Multiline = True
        Me.TEXTBOX25.Name = "TEXTBOX25"
        Me.TEXTBOX25.Size = New System.Drawing.Size(248, 48)
        Me.TEXTBOX25.TabIndex = 1
        Me.TEXTBOX25.Text = ""
        '
        'LABEL13
        '
        Me.LABEL13.Location = New System.Drawing.Point(136, 384)
        Me.LABEL13.Name = "LABEL13"
        Me.LABEL13.Size = New System.Drawing.Size(224, 48)
        Me.LABEL13.TabIndex = 2
        Me.LABEL13.Text = "QUEL EST TON PRENOM,MERCI"
        Me.LABEL13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'LABEL1
        '
        Me.LABEL1.BackColor = System.Drawing.Color.Orange
        Me.LABEL1.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL1.Location = New System.Drawing.Point(0, 0)
        Me.LABEL1.Name = "LABEL1"
        Me.LABEL1.Size = New System.Drawing.Size(784, 504)
        Me.LABEL1.TabIndex = 0
        Me.LABEL1.Text = "AVEC MOI TU VA POUVOIR APPRENDRE,REVISER OU CALCULER LES OPERATIONS COURANTES"
        Me.LABEL1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'TABPAGE3
        '
        Me.TABPAGE3.BackColor = System.Drawing.Color.Thistle
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX31)
        Me.TABPAGE3.Controls.Add(Me.LABEL28)
        Me.TABPAGE3.Controls.Add(Me.LABEL19)
        Me.TABPAGE3.Controls.Add(Me.LABEL20)
        Me.TABPAGE3.Controls.Add(Me.LABEL21)
        Me.TABPAGE3.Controls.Add(Me.LABEL17)
        Me.TABPAGE3.Controls.Add(Me.BUTTON13)
        Me.TABPAGE3.Controls.Add(Me.BUTTON14)
        Me.TABPAGE3.Controls.Add(Me.BUTTON15)
        Me.TABPAGE3.Controls.Add(Me.LABEL18)
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX24)
        Me.TABPAGE3.Controls.Add(Me.LABEL5)
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX23)
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX22)
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX15)
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX16)
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX17)
        Me.TABPAGE3.Controls.Add(Me.BUTTON5)
        Me.TABPAGE3.Controls.Add(Me.BUTTON6)
        Me.TABPAGE3.Controls.Add(Me.LABEL4)
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX19)
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX20)
        Me.TABPAGE3.Controls.Add(Me.TEXTBOX21)
        Me.TABPAGE3.Location = New System.Drawing.Point(4, 27)
        Me.TABPAGE3.Name = "TABPAGE3"
        Me.TABPAGE3.Size = New System.Drawing.Size(784, 503)
        Me.TABPAGE3.TabIndex = 2
        Me.TABPAGE3.Text = "MULTIPLICATION"
        '
        'TEXTBOX31
        '
        Me.TEXTBOX31.Location = New System.Drawing.Point(408, 32)
        Me.TEXTBOX31.Multiline = True
        Me.TEXTBOX31.Name = "TEXTBOX31"
        Me.TEXTBOX31.Size = New System.Drawing.Size(40, 48)
        Me.TEXTBOX31.TabIndex = 41
        Me.TEXTBOX31.Text = ""
        '
        'LABEL28
        '
        Me.LABEL28.BackColor = System.Drawing.Color.GreenYellow
        Me.LABEL28.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL28.Location = New System.Drawing.Point(208, 8)
        Me.LABEL28.Name = "LABEL28"
        Me.LABEL28.Size = New System.Drawing.Size(192, 88)
        Me.LABEL28.TabIndex = 40
        Me.LABEL28.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'LABEL19
        '
        Me.LABEL19.BackColor = System.Drawing.Color.GreenYellow
        Me.LABEL19.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL19.Location = New System.Drawing.Point(436, 264)
        Me.LABEL19.Name = "LABEL19"
        Me.LABEL19.Size = New System.Drawing.Size(240, 208)
        Me.LABEL19.TabIndex = 35
        Me.LABEL19.Text = "RESULTAT"
        Me.LABEL19.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'LABEL20
        '
        Me.LABEL20.BackColor = System.Drawing.Color.GreenYellow
        Me.LABEL20.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL20.Location = New System.Drawing.Point(432, 184)
        Me.LABEL20.Name = "LABEL20"
        Me.LABEL20.Size = New System.Drawing.Size(240, 32)
        Me.LABEL20.TabIndex = 34
        Me.LABEL20.Text = "THERMES"
        '
        'LABEL21
        '
        Me.LABEL21.BackColor = System.Drawing.Color.GreenYellow
        Me.LABEL21.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL21.Location = New System.Drawing.Point(432, 112)
        Me.LABEL21.Name = "LABEL21"
        Me.LABEL21.Size = New System.Drawing.Size(240, 32)
        Me.LABEL21.TabIndex = 33
        Me.LABEL21.Text = "RETENUES"
        '
        'LABEL17
        '
        Me.LABEL17.BackColor = System.Drawing.Color.GreenYellow
        Me.LABEL17.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL17.Location = New System.Drawing.Point(568, 8)
        Me.LABEL17.Name = "LABEL17"
        Me.LABEL17.Size = New System.Drawing.Size(200, 88)
        Me.LABEL17.TabIndex = 29
        Me.LABEL17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'BUTTON13
        '
        Me.BUTTON13.BackColor = System.Drawing.Color.Cyan
        Me.BUTTON13.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON13.Location = New System.Drawing.Point(464, 8)
        Me.BUTTON13.Name = "BUTTON13"
        Me.BUTTON13.Size = New System.Drawing.Size(96, 23)
        Me.BUTTON13.TabIndex = 28
        Me.BUTTON13.Text = "CALCULER"
        '
        'BUTTON14
        '
        Me.BUTTON14.BackColor = System.Drawing.Color.Cyan
        Me.BUTTON14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON14.Location = New System.Drawing.Point(464, 40)
        Me.BUTTON14.Name = "BUTTON14"
        Me.BUTTON14.Size = New System.Drawing.Size(96, 23)
        Me.BUTTON14.TabIndex = 27
        Me.BUTTON14.Text = "APPRENDRE"
        '
        'BUTTON15
        '
        Me.BUTTON15.BackColor = System.Drawing.Color.Cyan
        Me.BUTTON15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON15.Location = New System.Drawing.Point(464, 72)
        Me.BUTTON15.Name = "BUTTON15"
        Me.BUTTON15.Size = New System.Drawing.Size(96, 23)
        Me.BUTTON15.TabIndex = 26
        Me.BUTTON15.Text = "EXERCICE"
        '
        'LABEL18
        '
        Me.LABEL18.BackColor = System.Drawing.Color.LawnGreen
        Me.LABEL18.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL18.Location = New System.Drawing.Point(32, 8)
        Me.LABEL18.Name = "LABEL18"
        Me.LABEL18.Size = New System.Drawing.Size(176, 88)
        Me.LABEL18.TabIndex = 25
        Me.LABEL18.Text = "CHOISIS CE QUE TU VEUX FAIRE CI CONTRE"
        Me.LABEL18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'TEXTBOX24
        '
        Me.TEXTBOX24.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX24.Location = New System.Drawing.Point(120, 448)
        Me.TEXTBOX24.Multiline = True
        Me.TEXTBOX24.Name = "TEXTBOX24"
        Me.TEXTBOX24.Size = New System.Drawing.Size(192, 56)
        Me.TEXTBOX24.TabIndex = 23
        Me.TEXTBOX24.Text = ""
        Me.TEXTBOX24.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'LABEL5
        '
        Me.LABEL5.BackColor = System.Drawing.SystemColors.ControlText
        Me.LABEL5.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL5.Location = New System.Drawing.Point(56, 432)
        Me.LABEL5.Name = "LABEL5"
        Me.LABEL5.Size = New System.Drawing.Size(280, 8)
        Me.LABEL5.TabIndex = 22
        Me.LABEL5.Text = "LABEL5"
        '
        'TEXTBOX23
        '
        Me.TEXTBOX23.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX23.Location = New System.Drawing.Point(120, 328)
        Me.TEXTBOX23.Multiline = True
        Me.TEXTBOX23.Name = "TEXTBOX23"
        Me.TEXTBOX23.Size = New System.Drawing.Size(192, 40)
        Me.TEXTBOX23.TabIndex = 21
        Me.TEXTBOX23.Text = ""
        Me.TEXTBOX23.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TEXTBOX22
        '
        Me.TEXTBOX22.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX22.Location = New System.Drawing.Point(120, 376)
        Me.TEXTBOX22.Multiline = True
        Me.TEXTBOX22.Name = "TEXTBOX22"
        Me.TEXTBOX22.Size = New System.Drawing.Size(192, 48)
        Me.TEXTBOX22.TabIndex = 20
        Me.TEXTBOX22.Text = ""
        Me.TEXTBOX22.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TEXTBOX15
        '
        Me.TEXTBOX15.Location = New System.Drawing.Point(200, 112)
        Me.TEXTBOX15.Multiline = True
        Me.TEXTBOX15.Name = "TEXTBOX15"
        Me.TEXTBOX15.Size = New System.Drawing.Size(24, 32)
        Me.TEXTBOX15.TabIndex = 19
        Me.TEXTBOX15.Text = ""
        '
        'TEXTBOX16
        '
        Me.TEXTBOX16.Location = New System.Drawing.Point(232, 112)
        Me.TEXTBOX16.Multiline = True
        Me.TEXTBOX16.Name = "TEXTBOX16"
        Me.TEXTBOX16.Size = New System.Drawing.Size(24, 32)
        Me.TEXTBOX16.TabIndex = 18
        Me.TEXTBOX16.Text = ""
        '
        'TEXTBOX17
        '
        Me.TEXTBOX17.Location = New System.Drawing.Point(264, 112)
        Me.TEXTBOX17.Multiline = True
        Me.TEXTBOX17.Name = "TEXTBOX17"
        Me.TEXTBOX17.Size = New System.Drawing.Size(24, 32)
        Me.TEXTBOX17.TabIndex = 17
        Me.TEXTBOX17.Text = ""
        '
        'BUTTON5
        '
        Me.BUTTON5.BackColor = System.Drawing.Color.Aqua
        Me.BUTTON5.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON5.Location = New System.Drawing.Point(8, 456)
        Me.BUTTON5.Name = "BUTTON5"
        Me.BUTTON5.Size = New System.Drawing.Size(72, 32)
        Me.BUTTON5.TabIndex = 15
        Me.BUTTON5.Text = "="
        '
        'BUTTON6
        '
        Me.BUTTON6.BackColor = System.Drawing.Color.Cyan
        Me.BUTTON6.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON6.Location = New System.Drawing.Point(8, 216)
        Me.BUTTON6.Name = "BUTTON6"
        Me.BUTTON6.Size = New System.Drawing.Size(72, 32)
        Me.BUTTON6.TabIndex = 14
        Me.BUTTON6.Text = "*"
        '
        'LABEL4
        '
        Me.LABEL4.BackColor = System.Drawing.SystemColors.ControlText
        Me.LABEL4.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL4.Location = New System.Drawing.Point(64, 256)
        Me.LABEL4.Name = "LABEL4"
        Me.LABEL4.Size = New System.Drawing.Size(280, 8)
        Me.LABEL4.TabIndex = 13
        Me.LABEL4.Text = "LABEL4"
        '
        'TEXTBOX19
        '
        Me.TEXTBOX19.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX19.Location = New System.Drawing.Point(120, 272)
        Me.TEXTBOX19.Multiline = True
        Me.TEXTBOX19.Name = "TEXTBOX19"
        Me.TEXTBOX19.Size = New System.Drawing.Size(192, 48)
        Me.TEXTBOX19.TabIndex = 12
        Me.TEXTBOX19.Text = ""
        Me.TEXTBOX19.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TEXTBOX20
        '
        Me.TEXTBOX20.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX20.Location = New System.Drawing.Point(120, 200)
        Me.TEXTBOX20.Multiline = True
        Me.TEXTBOX20.Name = "TEXTBOX20"
        Me.TEXTBOX20.Size = New System.Drawing.Size(192, 48)
        Me.TEXTBOX20.TabIndex = 11
        Me.TEXTBOX20.Text = ""
        Me.TEXTBOX20.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TEXTBOX21
        '
        Me.TEXTBOX21.Font = New System.Drawing.Font("Microsoft Sans Serif", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX21.Location = New System.Drawing.Point(120, 144)
        Me.TEXTBOX21.Multiline = True
        Me.TEXTBOX21.Name = "TEXTBOX21"
        Me.TEXTBOX21.Size = New System.Drawing.Size(192, 48)
        Me.TEXTBOX21.TabIndex = 10
        Me.TEXTBOX21.Text = ""
        Me.TEXTBOX21.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TABPAGE2
        '
        Me.TABPAGE2.BackColor = System.Drawing.Color.Aqua
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX30)
        Me.TABPAGE2.Controls.Add(Me.LABEL27)
        Me.TABPAGE2.Controls.Add(Me.LABEL14)
        Me.TABPAGE2.Controls.Add(Me.LABEL15)
        Me.TABPAGE2.Controls.Add(Me.LABEL16)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX26)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX27)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX28)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX29)
        Me.TABPAGE2.Controls.Add(Me.LABEL8)
        Me.TABPAGE2.Controls.Add(Me.BUTTON10)
        Me.TABPAGE2.Controls.Add(Me.BUTTON11)
        Me.TABPAGE2.Controls.Add(Me.BUTTON12)
        Me.TABPAGE2.Controls.Add(Me.LABEL9)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX8)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX9)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX10)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX11)
        Me.TABPAGE2.Controls.Add(Me.BUTTON3)
        Me.TABPAGE2.Controls.Add(Me.BUTTON4)
        Me.TABPAGE2.Controls.Add(Me.LABEL3)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX12)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX13)
        Me.TABPAGE2.Controls.Add(Me.TEXTBOX14)
        Me.TABPAGE2.Location = New System.Drawing.Point(4, 27)
        Me.TABPAGE2.Name = "TABPAGE2"
        Me.TABPAGE2.Size = New System.Drawing.Size(784, 503)
        Me.TABPAGE2.TabIndex = 1
        Me.TABPAGE2.Text = "SOUSTRACTION"
        '
        'TEXTBOX30
        '
        Me.TEXTBOX30.Location = New System.Drawing.Point(384, 32)
        Me.TEXTBOX30.Multiline = True
        Me.TEXTBOX30.Name = "TEXTBOX30"
        Me.TEXTBOX30.Size = New System.Drawing.Size(40, 48)
        Me.TEXTBOX30.TabIndex = 33
        Me.TEXTBOX30.Text = ""
        '
        'LABEL27
        '
        Me.LABEL27.BackColor = System.Drawing.Color.Yellow
        Me.LABEL27.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL27.Location = New System.Drawing.Point(200, 16)
        Me.LABEL27.Name = "LABEL27"
        Me.LABEL27.Size = New System.Drawing.Size(176, 80)
        Me.LABEL27.TabIndex = 32
        Me.LABEL27.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'LABEL14
        '
        Me.LABEL14.BackColor = System.Drawing.Color.Yellow
        Me.LABEL14.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL14.Location = New System.Drawing.Point(440, 424)
        Me.LABEL14.Name = "LABEL14"
        Me.LABEL14.Size = New System.Drawing.Size(240, 32)
        Me.LABEL14.TabIndex = 31
        Me.LABEL14.Text = "RESULTAT"
        '
        'LABEL15
        '
        Me.LABEL15.BackColor = System.Drawing.Color.Yellow
        Me.LABEL15.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL15.Location = New System.Drawing.Point(440, 256)
        Me.LABEL15.Name = "LABEL15"
        Me.LABEL15.Size = New System.Drawing.Size(240, 32)
        Me.LABEL15.TabIndex = 30
        Me.LABEL15.Text = "THERMES"
        '
        'LABEL16
        '
        Me.LABEL16.BackColor = System.Drawing.Color.Yellow
        Me.LABEL16.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL16.Location = New System.Drawing.Point(440, 152)
        Me.LABEL16.Name = "LABEL16"
        Me.LABEL16.Size = New System.Drawing.Size(240, 32)
        Me.LABEL16.TabIndex = 29
        Me.LABEL16.Text = "RETENUES"
        '
        'TEXTBOX26
        '
        Me.TEXTBOX26.Location = New System.Drawing.Point(200, 360)
        Me.TEXTBOX26.Multiline = True
        Me.TEXTBOX26.Name = "TEXTBOX26"
        Me.TEXTBOX26.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX26.TabIndex = 28
        Me.TEXTBOX26.Text = ""
        '
        'TEXTBOX27
        '
        Me.TEXTBOX27.Location = New System.Drawing.Point(240, 360)
        Me.TEXTBOX27.Multiline = True
        Me.TEXTBOX27.Name = "TEXTBOX27"
        Me.TEXTBOX27.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX27.TabIndex = 27
        Me.TEXTBOX27.Text = ""
        '
        'TEXTBOX28
        '
        Me.TEXTBOX28.Location = New System.Drawing.Point(280, 360)
        Me.TEXTBOX28.Multiline = True
        Me.TEXTBOX28.Name = "TEXTBOX28"
        Me.TEXTBOX28.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX28.TabIndex = 26
        Me.TEXTBOX28.Text = ""
        '
        'TEXTBOX29
        '
        Me.TEXTBOX29.Location = New System.Drawing.Point(320, 360)
        Me.TEXTBOX29.Multiline = True
        Me.TEXTBOX29.Name = "TEXTBOX29"
        Me.TEXTBOX29.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX29.TabIndex = 25
        Me.TEXTBOX29.Text = ""
        '
        'LABEL8
        '
        Me.LABEL8.BackColor = System.Drawing.Color.Yellow
        Me.LABEL8.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL8.Location = New System.Drawing.Point(544, 8)
        Me.LABEL8.Name = "LABEL8"
        Me.LABEL8.Size = New System.Drawing.Size(192, 88)
        Me.LABEL8.TabIndex = 24
        Me.LABEL8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'BUTTON10
        '
        Me.BUTTON10.BackColor = System.Drawing.Color.Yellow
        Me.BUTTON10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON10.Location = New System.Drawing.Point(432, 8)
        Me.BUTTON10.Name = "BUTTON10"
        Me.BUTTON10.Size = New System.Drawing.Size(96, 23)
        Me.BUTTON10.TabIndex = 23
        Me.BUTTON10.Text = "CALCULER"
        '
        'BUTTON11
        '
        Me.BUTTON11.BackColor = System.Drawing.Color.Yellow
        Me.BUTTON11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON11.Location = New System.Drawing.Point(432, 40)
        Me.BUTTON11.Name = "BUTTON11"
        Me.BUTTON11.Size = New System.Drawing.Size(96, 23)
        Me.BUTTON11.TabIndex = 22
        Me.BUTTON11.Text = "APPRENDRE"
        '
        'BUTTON12
        '
        Me.BUTTON12.BackColor = System.Drawing.Color.Yellow
        Me.BUTTON12.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON12.Location = New System.Drawing.Point(432, 72)
        Me.BUTTON12.Name = "BUTTON12"
        Me.BUTTON12.Size = New System.Drawing.Size(96, 23)
        Me.BUTTON12.TabIndex = 21
        Me.BUTTON12.Text = "EXERCICE"
        '
        'LABEL9
        '
        Me.LABEL9.BackColor = System.Drawing.Color.Yellow
        Me.LABEL9.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL9.Location = New System.Drawing.Point(8, 16)
        Me.LABEL9.Name = "LABEL9"
        Me.LABEL9.Size = New System.Drawing.Size(184, 80)
        Me.LABEL9.TabIndex = 20
        Me.LABEL9.Text = "CHOISIS CE QUE TU VEUX FAIRE CI CONTRE"
        Me.LABEL9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'TEXTBOX8
        '
        Me.TEXTBOX8.Location = New System.Drawing.Point(232, 152)
        Me.TEXTBOX8.Multiline = True
        Me.TEXTBOX8.Name = "TEXTBOX8"
        Me.TEXTBOX8.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX8.TabIndex = 19
        Me.TEXTBOX8.Text = ""
        Me.TEXTBOX8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'TEXTBOX9
        '
        Me.TEXTBOX9.Location = New System.Drawing.Point(272, 152)
        Me.TEXTBOX9.Multiline = True
        Me.TEXTBOX9.Name = "TEXTBOX9"
        Me.TEXTBOX9.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX9.TabIndex = 18
        Me.TEXTBOX9.Text = ""
        Me.TEXTBOX9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'TEXTBOX10
        '
        Me.TEXTBOX10.Location = New System.Drawing.Point(312, 152)
        Me.TEXTBOX10.Multiline = True
        Me.TEXTBOX10.Name = "TEXTBOX10"
        Me.TEXTBOX10.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX10.TabIndex = 17
        Me.TEXTBOX10.Text = ""
        Me.TEXTBOX10.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'TEXTBOX11
        '
        Me.TEXTBOX11.Location = New System.Drawing.Point(352, 152)
        Me.TEXTBOX11.Multiline = True
        Me.TEXTBOX11.Name = "TEXTBOX11"
        Me.TEXTBOX11.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX11.TabIndex = 16
        Me.TEXTBOX11.Text = ""
        Me.TEXTBOX11.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'BUTTON3
        '
        Me.BUTTON3.BackColor = System.Drawing.Color.Yellow
        Me.BUTTON3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON3.Location = New System.Drawing.Point(32, 440)
        Me.BUTTON3.Name = "BUTTON3"
        Me.BUTTON3.Size = New System.Drawing.Size(75, 32)
        Me.BUTTON3.TabIndex = 15
        Me.BUTTON3.Text = "="
        '
        'BUTTON4
        '
        Me.BUTTON4.BackColor = System.Drawing.Color.Yellow
        Me.BUTTON4.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON4.Location = New System.Drawing.Point(32, 296)
        Me.BUTTON4.Name = "BUTTON4"
        Me.BUTTON4.Size = New System.Drawing.Size(75, 32)
        Me.BUTTON4.TabIndex = 14
        Me.BUTTON4.Text = "-"
        '
        'LABEL3
        '
        Me.LABEL3.BackColor = System.Drawing.Color.Black
        Me.LABEL3.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL3.Location = New System.Drawing.Point(88, 400)
        Me.LABEL3.Name = "LABEL3"
        Me.LABEL3.Size = New System.Drawing.Size(344, 8)
        Me.LABEL3.TabIndex = 13
        Me.LABEL3.Text = "LABEL3"
        '
        'TEXTBOX12
        '
        Me.TEXTBOX12.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX12.Location = New System.Drawing.Point(136, 424)
        Me.TEXTBOX12.Multiline = True
        Me.TEXTBOX12.Name = "TEXTBOX12"
        Me.TEXTBOX12.Size = New System.Drawing.Size(256, 64)
        Me.TEXTBOX12.TabIndex = 12
        Me.TEXTBOX12.Text = ""
        Me.TEXTBOX12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TEXTBOX13
        '
        Me.TEXTBOX13.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX13.Location = New System.Drawing.Point(136, 280)
        Me.TEXTBOX13.Multiline = True
        Me.TEXTBOX13.Name = "TEXTBOX13"
        Me.TEXTBOX13.Size = New System.Drawing.Size(256, 72)
        Me.TEXTBOX13.TabIndex = 11
        Me.TEXTBOX13.Text = ""
        Me.TEXTBOX13.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TEXTBOX14
        '
        Me.TEXTBOX14.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX14.Location = New System.Drawing.Point(136, 192)
        Me.TEXTBOX14.Multiline = True
        Me.TEXTBOX14.Name = "TEXTBOX14"
        Me.TEXTBOX14.Size = New System.Drawing.Size(256, 72)
        Me.TEXTBOX14.TabIndex = 10
        Me.TEXTBOX14.Text = ""
        Me.TEXTBOX14.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TABPAGE1
        '
        Me.TABPAGE1.BackColor = System.Drawing.Color.LemonChiffon
        Me.TABPAGE1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.TABPAGE1.Controls.Add(Me.LABEL26)
        Me.TABPAGE1.Controls.Add(Me.NUMERICUPDOWN1)
        Me.TABPAGE1.Controls.Add(Me.LABEL12)
        Me.TABPAGE1.Controls.Add(Me.LABEL11)
        Me.TABPAGE1.Controls.Add(Me.LABEL10)
        Me.TABPAGE1.Controls.Add(Me.LABEL7)
        Me.TABPAGE1.Controls.Add(Me.BUTTON9)
        Me.TABPAGE1.Controls.Add(Me.BUTTON8)
        Me.TABPAGE1.Controls.Add(Me.BUTTON7)
        Me.TABPAGE1.Controls.Add(Me.LABEL6)
        Me.TABPAGE1.Controls.Add(Me.TEXTBOX7)
        Me.TABPAGE1.Controls.Add(Me.TEXTBOX6)
        Me.TABPAGE1.Controls.Add(Me.TEXTBOX5)
        Me.TABPAGE1.Controls.Add(Me.TEXTBOX4)
        Me.TABPAGE1.Controls.Add(Me.BUTTON2)
        Me.TABPAGE1.Controls.Add(Me.BUTTON1)
        Me.TABPAGE1.Controls.Add(Me.LABEL2)
        Me.TABPAGE1.Controls.Add(Me.TEXTBOX3)
        Me.TABPAGE1.Controls.Add(Me.TEXTBOX2)
        Me.TABPAGE1.Controls.Add(Me.TEXTBOX1)
        Me.TABPAGE1.Location = New System.Drawing.Point(4, 27)
        Me.TABPAGE1.Name = "TABPAGE1"
        Me.TABPAGE1.Size = New System.Drawing.Size(784, 503)
        Me.TABPAGE1.TabIndex = 0
        Me.TABPAGE1.Text = "ADDITION"
        '
        'LABEL26
        '
        Me.LABEL26.Location = New System.Drawing.Point(560, 24)
        Me.LABEL26.Name = "LABEL26"
        Me.LABEL26.Size = New System.Drawing.Size(176, 88)
        Me.LABEL26.TabIndex = 19
        '
        'NUMERICUPDOWN1
        '
        Me.NUMERICUPDOWN1.Location = New System.Drawing.Point(392, 56)
        Me.NUMERICUPDOWN1.Maximum = New Decimal(New Integer() {4, 0, 0, 0})
        Me.NUMERICUPDOWN1.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
        Me.NUMERICUPDOWN1.Name = "NUMERICUPDOWN1"
        Me.NUMERICUPDOWN1.Size = New System.Drawing.Size(40, 24)
        Me.NUMERICUPDOWN1.TabIndex = 18
        Me.NUMERICUPDOWN1.Value = New Decimal(New Integer() {1, 0, 0, 0})
        '
        'LABEL12
        '
        Me.LABEL12.BackColor = System.Drawing.Color.Aqua
        Me.LABEL12.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL12.Location = New System.Drawing.Point(408, 392)
        Me.LABEL12.Name = "LABEL12"
        Me.LABEL12.Size = New System.Drawing.Size(328, 32)
        Me.LABEL12.TabIndex = 17
        Me.LABEL12.Text = "RESULTAT"
        '
        'LABEL11
        '
        Me.LABEL11.BackColor = System.Drawing.Color.Aqua
        Me.LABEL11.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL11.Location = New System.Drawing.Point(408, 240)
        Me.LABEL11.Name = "LABEL11"
        Me.LABEL11.Size = New System.Drawing.Size(328, 32)
        Me.LABEL11.TabIndex = 16
        Me.LABEL11.Text = "THERMES"
        '
        'LABEL10
        '
        Me.LABEL10.BackColor = System.Drawing.Color.Aqua
        Me.LABEL10.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL10.Location = New System.Drawing.Point(408, 152)
        Me.LABEL10.Name = "LABEL10"
        Me.LABEL10.Size = New System.Drawing.Size(320, 32)
        Me.LABEL10.TabIndex = 15
        Me.LABEL10.Text = "RETENUES"
        '
        'LABEL7
        '
        Me.LABEL7.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL7.Location = New System.Drawing.Point(208, 24)
        Me.LABEL7.Name = "LABEL7"
        Me.LABEL7.Size = New System.Drawing.Size(176, 88)
        Me.LABEL7.TabIndex = 14
        Me.LABEL7.Text = "COMBIEN DE CHIFFRE VEUT TU À TES NOMBRES"
        Me.LABEL7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'BUTTON9
        '
        Me.BUTTON9.BackColor = System.Drawing.Color.GreenYellow
        Me.BUTTON9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON9.Location = New System.Drawing.Point(440, 24)
        Me.BUTTON9.Name = "BUTTON9"
        Me.BUTTON9.Size = New System.Drawing.Size(96, 23)
        Me.BUTTON9.TabIndex = 13
        Me.BUTTON9.Text = "CALCULER"
        '
        'BUTTON8
        '
        Me.BUTTON8.BackColor = System.Drawing.Color.GreenYellow
        Me.BUTTON8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON8.Location = New System.Drawing.Point(440, 56)
        Me.BUTTON8.Name = "BUTTON8"
        Me.BUTTON8.Size = New System.Drawing.Size(96, 23)
        Me.BUTTON8.TabIndex = 12
        Me.BUTTON8.Text = "APPRENDRE"
        '
        'BUTTON7
        '
        Me.BUTTON7.BackColor = System.Drawing.Color.GreenYellow
        Me.BUTTON7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON7.Location = New System.Drawing.Point(440, 88)
        Me.BUTTON7.Name = "BUTTON7"
        Me.BUTTON7.Size = New System.Drawing.Size(96, 23)
        Me.BUTTON7.TabIndex = 11
        Me.BUTTON7.Text = "EXERCICE"
        '
        'LABEL6
        '
        Me.LABEL6.BackColor = System.Drawing.Color.Cyan
        Me.LABEL6.Location = New System.Drawing.Point(8, 24)
        Me.LABEL6.Name = "LABEL6"
        Me.LABEL6.Size = New System.Drawing.Size(184, 80)
        Me.LABEL6.TabIndex = 10
        Me.LABEL6.Text = "CHOISIS CE QUE TU VEUX FAIRE CI CONTRE"
        Me.LABEL6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'TEXTBOX7
        '
        Me.TEXTBOX7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX7.Location = New System.Drawing.Point(208, 152)
        Me.TEXTBOX7.Multiline = True
        Me.TEXTBOX7.Name = "TEXTBOX7"
        Me.TEXTBOX7.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX7.TabIndex = 9
        Me.TEXTBOX7.Text = ""
        Me.TEXTBOX7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'TEXTBOX6
        '
        Me.TEXTBOX6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX6.Location = New System.Drawing.Point(248, 152)
        Me.TEXTBOX6.Multiline = True
        Me.TEXTBOX6.Name = "TEXTBOX6"
        Me.TEXTBOX6.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX6.TabIndex = 8
        Me.TEXTBOX6.Text = ""
        Me.TEXTBOX6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'TEXTBOX5
        '
        Me.TEXTBOX5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX5.Location = New System.Drawing.Point(288, 152)
        Me.TEXTBOX5.Multiline = True
        Me.TEXTBOX5.Name = "TEXTBOX5"
        Me.TEXTBOX5.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX5.TabIndex = 7
        Me.TEXTBOX5.Text = ""
        Me.TEXTBOX5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'TEXTBOX4
        '
        Me.TEXTBOX4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX4.Location = New System.Drawing.Point(328, 152)
        Me.TEXTBOX4.Multiline = True
        Me.TEXTBOX4.Name = "TEXTBOX4"
        Me.TEXTBOX4.Size = New System.Drawing.Size(32, 32)
        Me.TEXTBOX4.TabIndex = 6
        Me.TEXTBOX4.Text = ""
        Me.TEXTBOX4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'BUTTON2
        '
        Me.BUTTON2.BackColor = System.Drawing.Color.GreenYellow
        Me.BUTTON2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON2.Location = New System.Drawing.Point(40, 392)
        Me.BUTTON2.Name = "BUTTON2"
        Me.BUTTON2.Size = New System.Drawing.Size(75, 32)
        Me.BUTTON2.TabIndex = 5
        Me.BUTTON2.Text = "="
        '
        'BUTTON1
        '
        Me.BUTTON1.BackColor = System.Drawing.Color.GreenYellow
        Me.BUTTON1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BUTTON1.Location = New System.Drawing.Point(40, 304)
        Me.BUTTON1.Name = "BUTTON1"
        Me.BUTTON1.Size = New System.Drawing.Size(75, 32)
        Me.BUTTON1.TabIndex = 4
        Me.BUTTON1.Text = "+"
        '
        'LABEL2
        '
        Me.LABEL2.BackColor = System.Drawing.SystemColors.ControlText
        Me.LABEL2.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LABEL2.Location = New System.Drawing.Point(88, 352)
        Me.LABEL2.Name = "LABEL2"
        Me.LABEL2.Size = New System.Drawing.Size(344, 8)
        Me.LABEL2.TabIndex = 3
        Me.LABEL2.Text = "LABEL2"
        '
        'TEXTBOX3
        '
        Me.TEXTBOX3.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX3.Location = New System.Drawing.Point(168, 376)
        Me.TEXTBOX3.Multiline = True
        Me.TEXTBOX3.Name = "TEXTBOX3"
        Me.TEXTBOX3.Size = New System.Drawing.Size(232, 72)
        Me.TEXTBOX3.TabIndex = 2
        Me.TEXTBOX3.Text = ""
        Me.TEXTBOX3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TEXTBOX2
        '
        Me.TEXTBOX2.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX2.Location = New System.Drawing.Point(168, 272)
        Me.TEXTBOX2.Multiline = True
        Me.TEXTBOX2.Name = "TEXTBOX2"
        Me.TEXTBOX2.Size = New System.Drawing.Size(232, 72)
        Me.TEXTBOX2.TabIndex = 1
        Me.TEXTBOX2.Text = ""
        Me.TEXTBOX2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TEXTBOX1
        '
        Me.TEXTBOX1.AccessibleRole = System.Windows.Forms.AccessibleRole.Text
        Me.TEXTBOX1.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX1.Location = New System.Drawing.Point(168, 192)
        Me.TEXTBOX1.Multiline = True
        Me.TEXTBOX1.Name = "TEXTBOX1"
        Me.TEXTBOX1.Size = New System.Drawing.Size(232, 72)
        Me.TEXTBOX1.TabIndex = 0
        Me.TEXTBOX1.Text = ""
        Me.TEXTBOX1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'TABPAGE5
        '
        Me.TABPAGE5.BackColor = System.Drawing.Color.Pink
        Me.TABPAGE5.Controls.Add(Me.LABEL24)
        Me.TABPAGE5.Controls.Add(Me.BUTTON29)
        Me.TABPAGE5.Controls.Add(Me.TEXTBOX18)
        Me.TABPAGE5.Controls.Add(Me.LABEL23)
        Me.TABPAGE5.Controls.Add(Me.BUTTON28)
        Me.TABPAGE5.Controls.Add(Me.BUTTON27)
        Me.TABPAGE5.Controls.Add(Me.BUTTON26)
        Me.TABPAGE5.Controls.Add(Me.BUTTON25)
        Me.TABPAGE5.Controls.Add(Me.BUTTON24)
        Me.TABPAGE5.Controls.Add(Me.BUTTON23)
        Me.TABPAGE5.Controls.Add(Me.BUTTON22)
        Me.TABPAGE5.Controls.Add(Me.BUTTON21)
        Me.TABPAGE5.Controls.Add(Me.BUTTON20)
        Me.TABPAGE5.Controls.Add(Me.BUTTON16)
        Me.TABPAGE5.Controls.Add(Me.BUTTON19)
        Me.TABPAGE5.Controls.Add(Me.BUTTON18)
        Me.TABPAGE5.Controls.Add(Me.BUTTON17)
        Me.TABPAGE5.Controls.Add(Me.LABEL22)
        Me.TABPAGE5.Location = New System.Drawing.Point(4, 27)
        Me.TABPAGE5.Name = "TABPAGE5"
        Me.TABPAGE5.Size = New System.Drawing.Size(784, 503)
        Me.TABPAGE5.TabIndex = 4
        Me.TABPAGE5.Text = "LES TABLES"
        '
        'LABEL24
        '
        Me.LABEL24.BackColor = System.Drawing.Color.Cyan
        Me.LABEL24.Location = New System.Drawing.Point(400, 8)
        Me.LABEL24.Name = "LABEL24"
        Me.LABEL24.Size = New System.Drawing.Size(280, 72)
        Me.LABEL24.TabIndex = 19
        Me.LABEL24.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'BUTTON29
        '
        Me.BUTTON29.BackColor = System.Drawing.Color.Gold
        Me.BUTTON29.Location = New System.Drawing.Point(240, 248)
        Me.BUTTON29.Name = "BUTTON29"
        Me.BUTTON29.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON29.TabIndex = 18
        Me.BUTTON29.Text = "10"
        '
        'TEXTBOX18
        '
        Me.TEXTBOX18.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.TEXTBOX18.BackColor = System.Drawing.SystemColors.ControlLight
        Me.TEXTBOX18.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TEXTBOX18.Location = New System.Drawing.Point(448, 96)
        Me.TEXTBOX18.Multiline = True
        Me.TEXTBOX18.Name = "TEXTBOX18"
        Me.TEXTBOX18.Size = New System.Drawing.Size(224, 398)
        Me.TEXTBOX18.TabIndex = 17
        Me.TEXTBOX18.Text = ""
        '
        'LABEL23
        '
        Me.LABEL23.BackColor = System.Drawing.Color.Aqua
        Me.LABEL23.Location = New System.Drawing.Point(24, 296)
        Me.LABEL23.Name = "LABEL23"
        Me.LABEL23.Size = New System.Drawing.Size(328, 64)
        Me.LABEL23.TabIndex = 16
        Me.LABEL23.Text = "CHOISIS CI DESSUS CELLE QUE TU VEUX ETUDIER ,PUIS CI DESSOUS LA TABLE QUE TU VEUX" & _
        " ETUDIER"
        Me.LABEL23.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'BUTTON28
        '
        Me.BUTTON28.BackColor = System.Drawing.Color.Gold
        Me.BUTTON28.Location = New System.Drawing.Point(240, 192)
        Me.BUTTON28.Name = "BUTTON28"
        Me.BUTTON28.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON28.TabIndex = 14
        Me.BUTTON28.Text = "9"
        '
        'BUTTON27
        '
        Me.BUTTON27.BackColor = System.Drawing.Color.Gold
        Me.BUTTON27.Location = New System.Drawing.Point(136, 192)
        Me.BUTTON27.Name = "BUTTON27"
        Me.BUTTON27.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON27.TabIndex = 13
        Me.BUTTON27.Text = "8"
        '
        'BUTTON26
        '
        Me.BUTTON26.BackColor = System.Drawing.Color.Gold
        Me.BUTTON26.Location = New System.Drawing.Point(32, 192)
        Me.BUTTON26.Name = "BUTTON26"
        Me.BUTTON26.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON26.TabIndex = 12
        Me.BUTTON26.Text = "7"
        '
        'BUTTON25
        '
        Me.BUTTON25.BackColor = System.Drawing.Color.Gold
        Me.BUTTON25.Location = New System.Drawing.Point(240, 136)
        Me.BUTTON25.Name = "BUTTON25"
        Me.BUTTON25.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON25.TabIndex = 11
        Me.BUTTON25.Text = "6"
        '
        'BUTTON24
        '
        Me.BUTTON24.BackColor = System.Drawing.Color.Gold
        Me.BUTTON24.Location = New System.Drawing.Point(136, 136)
        Me.BUTTON24.Name = "BUTTON24"
        Me.BUTTON24.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON24.TabIndex = 10
        Me.BUTTON24.Text = "5"
        '
        'BUTTON23
        '
        Me.BUTTON23.BackColor = System.Drawing.Color.Gold
        Me.BUTTON23.Location = New System.Drawing.Point(32, 136)
        Me.BUTTON23.Name = "BUTTON23"
        Me.BUTTON23.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON23.TabIndex = 9
        Me.BUTTON23.Text = "4"
        '
        'BUTTON22
        '
        Me.BUTTON22.BackColor = System.Drawing.Color.Gold
        Me.BUTTON22.Location = New System.Drawing.Point(240, 88)
        Me.BUTTON22.Name = "BUTTON22"
        Me.BUTTON22.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON22.TabIndex = 8
        Me.BUTTON22.Text = "3"
        '
        'BUTTON21
        '
        Me.BUTTON21.BackColor = System.Drawing.Color.Gold
        Me.BUTTON21.Location = New System.Drawing.Point(136, 88)
        Me.BUTTON21.Name = "BUTTON21"
        Me.BUTTON21.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON21.TabIndex = 7
        Me.BUTTON21.Text = "2"
        '
        'BUTTON20
        '
        Me.BUTTON20.BackColor = System.Drawing.Color.Gold
        Me.BUTTON20.Location = New System.Drawing.Point(32, 88)
        Me.BUTTON20.Name = "BUTTON20"
        Me.BUTTON20.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON20.TabIndex = 6
        Me.BUTTON20.Tag = ""
        Me.BUTTON20.Text = "1"
        '
        'BUTTON16
        '
        Me.BUTTON16.BackColor = System.Drawing.Color.Gold
        Me.BUTTON16.Location = New System.Drawing.Point(32, 248)
        Me.BUTTON16.Name = "BUTTON16"
        Me.BUTTON16.Size = New System.Drawing.Size(88, 23)
        Me.BUTTON16.TabIndex = 5
        Me.BUTTON16.Text = "0"
        '
        'BUTTON19
        '
        Me.BUTTON19.BackColor = System.Drawing.Color.Gold
        Me.BUTTON19.Location = New System.Drawing.Point(16, 384)
        Me.BUTTON19.Name = "BUTTON19"
        Me.BUTTON19.Size = New System.Drawing.Size(104, 48)
        Me.BUTTON19.TabIndex = 4
        Me.BUTTON19.Text = "ADDITION"
        '
        'BUTTON18
        '
        Me.BUTTON18.BackColor = System.Drawing.Color.Gold
        Me.BUTTON18.Location = New System.Drawing.Point(136, 384)
        Me.BUTTON18.Name = "BUTTON18"
        Me.BUTTON18.Size = New System.Drawing.Size(104, 48)
        Me.BUTTON18.TabIndex = 3
        Me.BUTTON18.Text = "SOUSTRACTION"
        '
        'BUTTON17
        '
        Me.BUTTON17.BackColor = System.Drawing.Color.Gold
        Me.BUTTON17.Location = New System.Drawing.Point(256, 384)
        Me.BUTTON17.Name = "BUTTON17"
        Me.BUTTON17.Size = New System.Drawing.Size(104, 48)
        Me.BUTTON17.TabIndex = 2
        Me.BUTTON17.Text = "MULTIPLICATION"
        '
        'LABEL22
        '
        Me.LABEL22.BackColor = System.Drawing.Color.Aqua
        Me.LABEL22.Location = New System.Drawing.Point(48, 16)
        Me.LABEL22.Name = "LABEL22"
        Me.LABEL22.Size = New System.Drawing.Size(264, 40)
        Me.LABEL22.TabIndex = 0
        Me.LABEL22.Text = "JE VAIS TE FAIRE REVISER LES TABLES "
        Me.LABEL22.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'FORM1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(792, 534)
        Me.Controls.Add(Me.TABCONTROL1)
        Me.Name = "FORM1"
        Me.Text = "CALCUL AU PRIMAIRE"
        Me.TABCONTROL1.ResumeLayout(False)
        Me.TABPAGE6.ResumeLayout(False)
        Me.TABPAGE3.ResumeLayout(False)
        Me.TABPAGE2.ResumeLayout(False)
        Me.TABPAGE1.ResumeLayout(False)
        CType(Me.NUMERICUPDOWN1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TABPAGE5.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub BUTTON9_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON9.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        LABEL26.Text = "DONNE MOI LES THERMES,MERCI PUIS CLIC SUR PLUS" & " " & PRENOM$
        BUTTON2.Enabled = False
        BUTTON1.Enabled = True
    End Sub

    Private Sub BUTTON8_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON8.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        LABEL26.Text = "JE VAIS TE MONTRER UN EXEMPLE REGARDE BIEN" & " " & PRENOM$
        BUTTON1.Enabled = False
        BUTTON2.Enabled = False
        C = NUMERICUPDOWN1.Text
        Select Case C
            Case 1
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = False
                TEXTBOX6.Visible = False
                TEXTBOX7.Visible = False
                D = 9
LINE:           A = TEXTBOX1.Text
                B = TEXTBOX2.Text
                If A = 10 Or B = 10 Then GoTo LINE
                If A < B Then A = B : B = A
                TEXTBOX1.Text = A
                TEXTBOX2.Text = B
                RESULTAT = A + B
                TEXTBOX3.Text = RESULTAT
                A1 = A : B1 = B
                If A1 + B1 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
                TEXTBOX4.Text = R1

            Case 2
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = False
                TEXTBOX6.Visible = False
                TEXTBOX7.Visible = False
                D = 99
LINE1:          A = TEXTBOX1.Text
                B = TEXTBOX2.Text
                If A <= 9 Or B <= 9 Then GoTo LINE

                RESULTAT = A + B
                TEXTBOX1.Text = A
                TEXTBOX2.Text = B

                TEXTBOX3.Text = RESULTAT
                'DECOUPAGE A
                A2 = Int(StrReverse(A) / 10)

                'DECOUPAGE DE B

                B2 = Int(StrReverse(B) / 10)
                'CALCUL RETENUE
                If A2 + B2 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False

                TEXTBOX4.Text = R1

            Case 3
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = True
                TEXTBOX6.Visible = False
                TEXTBOX7.Visible = False
                D = 999
LINE2:          A = TEXTBOX1.Text
                B = TEXTBOX2.Text
                If A < 99 Or B < 99 Then GoTo LINE2

                RESULTAT = A + B
                TEXTBOX1.Text = A
                TEXTBOX2.Text = B

                TEXTBOX3.Text = RESULTAT
                A1 = Int(A / 100)
                A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)

                A3 = Int((StrReverse(A)) / 100)
                'DECOUPAGE DE B
                B1 = Int(B / 100)
                B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)

                B3 = Int((StrReverse(B)) / 100)
                If A3 + B3 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
                If A2 + B2 >= 10 Then TEXTBOX5.Clear() : R2 = 1 Else TEXTBOX5.Visible = False

                TEXTBOX4.Text = R1
                TEXTBOX5.Text = R2

            Case 4
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = True
                TEXTBOX6.Visible = True
                TEXTBOX7.Visible = False
                D = 9999
LINE3:          A = TEXTBOX1.Text
                B = TEXTBOX2.Text
                If A < 999 Or B < 999 Then GoTo LINE3

                RESULTAT = A + B
                TEXTBOX1.Text = A
                TEXTBOX2.Text = B

                TEXTBOX3.Text = RESULTAT
                'DECOUPAGE DE A

                A21 = Int(A / 100) : A2 = Int((StrReverse(A21)) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B

                B21 = Int(B / 100) : B2 = Int((StrReverse(B21)) / 10)
                B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
                B4 = Int((StrReverse(B)) / 1000)
                'CALCUL RETENUE
                If A2 + B2 >= 10 Then TEXTBOX6.Visible = True : R2 = 1 : TEXTBOX6.Text = R2 Else TEXTBOX6.Visible = False
                If A3 + B3 >= 10 Then TEXTBOX5.Visible = True : R1 = 1 : TEXTBOX5.Text = R1 Else TEXTBOX5.Visible = False

                If A4 + B4 >= 10 Then TEXTBOX4.Visible = True : R3 = 1 : TEXTBOX4.Text = R3 Else TEXTBOX4.Visible = False

        End Select

    End Sub

    Private Sub BUTTON7_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON7.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        LABEL26.Text = "DONNE MOI LE RESULTAT AINSIS QUE LES RETENUES,MERCI PUIS CLIC SUR EGAL" & " " & PRENOM$
        BUTTON1.Enabled = False
        BUTTON2.Enabled = True
        C = NUMERICUPDOWN1.Text
        Select Case C
            Case 1
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = False
                TEXTBOX6.Visible = False
                TEXTBOX7.Visible = False
                TEXTBOX3.Clear()
                TEXTBOX4.Clear()
                TEXTBOX5.Clear()
                TEXTBOX6.Clear()
                TEXTBOX7.Clear()
                A = Int(Rnd() * 9)
                B = Int(Rnd() * 9)
                If A + B < 10 Then TEXTBOX4.Visible = False

                TEXTBOX1.Text = A
                TEXTBOX2.Text = B
                RESULTAT = A + B
            Case 2
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = True
                TEXTBOX6.Visible = False
                TEXTBOX7.Visible = False
                TEXTBOX3.Clear()
                TEXTBOX4.Clear()
                TEXTBOX5.Clear()
                TEXTBOX6.Clear()
                TEXTBOX7.Clear()
                A = Int(Rnd() * 99)
                B = Int(Rnd() * 99)

                TEXTBOX1.Text = A
                TEXTBOX2.Text = B
                RESULTAT = A + B
            Case 3
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = True
                TEXTBOX6.Visible = True
                TEXTBOX7.Visible = False
                TEXTBOX3.Clear()
                TEXTBOX4.Clear()
                TEXTBOX5.Clear()
                TEXTBOX6.Clear()
                TEXTBOX7.Clear()
                A = Int(Rnd() * 999)
                B = Int(Rnd() * 999)

                TEXTBOX1.Text = A
                TEXTBOX2.Text = B
                RESULTAT = A + B
            Case 4
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = True
                TEXTBOX6.Visible = True
                TEXTBOX7.Visible = True
                TEXTBOX3.Clear()
                TEXTBOX4.Clear()
                TEXTBOX5.Clear()
                TEXTBOX6.Clear()
                TEXTBOX7.Clear()
                A = Int(Rnd() * 9999)
                B = Int(Rnd() * 9999)

                TEXTBOX1.Text = A
                TEXTBOX2.Text = B
                RESULTAT = A + B
        End Select
    End Sub

    Private Sub BUTTON10_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON10.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        LABEL8.Text = "DONNE MOI LES THERMES,MERCI PUIS CLIC SUR MOINS" & PRENOM$
        LABEL27.Text = "COMBIEN DE CHIFFRES ON T'EST NOMBRES : "
        BUTTON4.Enabled = True
        BUTTON3.Enabled = False

    End Sub

    Private Sub BUTTON11_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON11.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        NUMERICUPDOWN1.Visible = False
        LABEL27.Visible = False
        LABEL8.Text = "JE VAIS TE MONTRER UN EXEMPLE REGARDE BIEN" & PRENOM$
        BUTTON3.Enabled = False
        BUTTON4.Enabled = False
LINE5:  C = Int(Rnd(1) * 5)
        LABEL8.Text = "CECI EST UNE SOUSTRACTION A : " & C & " CHIFFRE(S)"
        If C = 0 Then GoTo LINE5
        Select Case C
            Case 1
                TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
                TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
                TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
LINE1:          A = Int(Rnd() * 9)
                B = Int(Rnd() * 9)
                If A < B Then GoTo LINE1
                A1 = A : B1 = B
                TEXTBOX14.Text = A
                TEXTBOX13.Text = B
                RESULTAT = A - B
                TEXTBOX12.Text = RESULTAT
            Case 2
                TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
                TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
                TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
LINE2:          A = Int(Rnd() * 99)
                B = Int(Rnd() * 99)
                If A < B Then GoTo LINE2
                A1 = Int((StrReverse(A) / 10))
                B1 = Int((StrReverse(B) / 10))
                If A1 < B1 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
                TEXTBOX29.Text = R1
                TEXTBOX11.Text = R1
                TEXTBOX14.Text = A
                TEXTBOX13.Text = B
                RESULTAT = A - B
                TEXTBOX12.Text = RESULTAT
            Case 3
                TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
                TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
                TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
LINE3:          A = Int(Rnd() * 999)
                B = Int(Rnd() * 999)
                If A < B Then GoTo LINE3
                'DECOUPAGE DE A
                A1 = Int(A / 100)
                A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)
                A3 = Int((StrReverse(A)) / 100)
                'DECOUPAGE DE B
                B1 = Int(B / 100)
                B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
                B3 = Int((StrReverse(B)) / 100)
                If A3 < B3 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
                If A2 < B2 Then TEXTBOX10.Visible = True : TEXTBOX28.Visible = True : R2 = 1 Else TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
                TEXTBOX14.Text = A
                TEXTBOX13.Text = B
                TEXTBOX28.Text = R2
                TEXTBOX29.Text = R1
                TEXTBOX10.Text = R2
                TEXTBOX11.Text = R1
                RESULTAT = A - B
                TEXTBOX12.Text = RESULTAT
            Case 4
                TEXTBOX8.Visible = True : TEXTBOX26.Visible = True
                TEXTBOX9.Visible = True : TEXTBOX27.Visible = True
                TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
                TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
LINE4:          A = Int(Rnd() * 9999)
                B = Int(Rnd() * 9999)
                If A < B Then GoTo LINE4
                TEXTBOX14.Text = A
                TEXTBOX13.Text = B
                RESULTAT = A - B
                TEXTBOX12.Text = RESULTAT
                'DECOUPAGE DE A
                A1 = Int(A / 1000)
                A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                B1 = Int(B / 1000)
                B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
                B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
                B4 = Int((StrReverse(B)) / 1000)
                'DE
                'CALCUL RETENUES
                If A1 < B1 Then R1 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                If A2 < B2 Then R2 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                If A3 < B3 Then R3 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                If A4 < B4 Then R4 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX8.Text = R1
                TEXTBOX9.Text = R2
                TEXTBOX10.Text = R3
                TEXTBOX11.Text = R4
                TEXTBOX26.Text = R1
                TEXTBOX27.Text = R2
                TEXTBOX28.Text = R3
                TEXTBOX29.Text = R4
        End Select

    End Sub

    Private Sub BUTTON12_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON12.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        LABEL27.Text = "DONNE MOI LE RESULTAT AINSIS QUE LES RETENUES,MERCI PUIS CLIC SUR EGAL" & " " & PRENOM$
        BUTTON3.Enabled = True
        BUTTON4.Enabled = False
        LABEL27.Text = "CELA VA ETRE UNE OPERATION A : "
LINE5:  C = Int(Rnd() * 5)
        If C = 0 Then GoTo LINE5

        TEXTBOX30.Text = C
        Select Case C
            Case 1
                TEXTBOX14.Clear()
                TEXTBOX13.Clear()
                TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
                TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
                TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
LINE1:          A = Int(Rnd() * 9)
                B = Int(Rnd() * 9)
                If A < B Then GoTo LINE1
                A1 = A : B1 = B
                TEXTBOX14.Text = A
                TEXTBOX13.Text = B
                RESULTAT = A - B

            Case 2
                TEXTBOX14.Clear()
                TEXTBOX13.Clear()
                TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
                TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
                TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
LINE2:          A = Int(Rnd() * 99)
                B = Int(Rnd() * 99)
                If A < B Then GoTo LINE2
                TEXTBOX14.Text = A
                TEXTBOX13.Text = B
                RESULTAT = A - B
                A1 = Int((StrReverse(A) / 10))
                B1 = Int((StrReverse(B) / 10))
                If A1 < B1 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False

            Case 3
                TEXTBOX14.Clear()
                TEXTBOX13.Clear()
                TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
                TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
                TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
LINE3:          A = Int(Rnd() * 999)
                B = Int(Rnd() * 999)
                If A < B Then GoTo LINE3
                RESULTAT = A - B
                TEXTBOX14.Text = A
                TEXTBOX13.Text = B
                'DECOUPAGE DE A
                A1 = Int(A / 100)
                A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)
                A3 = Int((StrReverse(A)) / 100)
                'DECOUPAGE DE B
                B1 = Int(B / 100)
                B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
                B3 = Int((StrReverse(B)) / 100)
                If A3 < B3 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
                If A2 < B2 Then TEXTBOX10.Visible = True : TEXTBOX28.Visible = True : R2 = 1 Else TEXTBOX10.Visible = False : TEXTBOX28.Visible = False

            Case 4
                TEXTBOX14.Clear()
                TEXTBOX13.Clear()
                TEXTBOX8.Visible = True : TEXTBOX26.Visible = True
                TEXTBOX9.Visible = True : TEXTBOX27.Visible = True
                TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
                TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
LINE4:          A = Int(Rnd() * 9999)
                B = Int(Rnd() * 9999)
                If A < B Then GoTo LINE4
                TEXTBOX14.Text = A
                TEXTBOX13.Text = B
                RESULTAT = A - B

                'DECOUPAGE DE A
                A1 = Int(A / 1000)
                A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                B1 = Int(B / 1000)
                B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
                B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
                B4 = Int((StrReverse(B)) / 1000)
                'DE
                'CALCUL RETENUES
                If A1 < B1 Then R1 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                If A2 < B2 Then R2 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                If A3 < B3 Then R3 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                If A4 < B4 Then R4 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False

        End Select

    End Sub

    Private Sub BUTTON1_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON1.Click
        PRENOM$ = UCase(TEXTBOX25.Text)

        Select Case C
            Case 1
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = False
                TEXTBOX6.Visible = False
                TEXTBOX7.Visible = False

LINE:           A = TEXTBOX1.Text
                B = TEXTBOX2.Text
                If A = 10 Or B = 10 Then GoTo LINE
                If A < B Then A = B : B = A
                TEXTBOX1.Text = A
                TEXTBOX2.Text = B
                RESULTAT = A + B
                TEXTBOX3.Text = RESULTAT
                A1 = A : B1 = B
                If A1 + B1 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
                TEXTBOX4.Text = R1

            Case 2
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = False
                TEXTBOX6.Visible = False
                TEXTBOX7.Visible = False

LINE1:          A = TEXTBOX1.Text
                B = TEXTBOX2.Text
                If A <= 9 Or B <= 9 Then GoTo LINE

                RESULTAT = A + B
                TEXTBOX1.Text = A
                TEXTBOX2.Text = B

                TEXTBOX3.Text = RESULTAT
                'DECOUPAGE A
                A2 = Int(StrReverse(A) / 10)

                'DECOUPAGE DE B

                B2 = Int(StrReverse(B) / 10)
                'CALCUL RETENUE
                If A2 + B2 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False

                TEXTBOX4.Text = R1

            Case 3
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = True
                TEXTBOX6.Visible = False
                TEXTBOX7.Visible = False

LINE2:          A = TEXTBOX1.Text
                B = TEXTBOX2.Text
                If A < 99 Or B < 99 Then GoTo LINE2

                RESULTAT = A + B
                TEXTBOX1.Text = A
                TEXTBOX2.Text = B

                TEXTBOX3.Text = RESULTAT
                A1 = Int(A / 100)
                A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)

                A3 = Int((StrReverse(A)) / 100)
                'DECOUPAGE DE B
                B1 = Int(B / 100)
                B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)

                B3 = Int((StrReverse(B)) / 100)
                If A3 + B3 >= 10 Then TEXTBOX4.Clear() : R1 = 1 Else TEXTBOX4.Visible = False
                If A2 + B2 >= 10 Then TEXTBOX5.Clear() : R2 = 1 Else TEXTBOX5.Visible = False

                TEXTBOX4.Text = R1
                TEXTBOX5.Text = R2

            Case 4
                TEXTBOX4.Visible = True
                TEXTBOX5.Visible = True
                TEXTBOX6.Visible = True
                TEXTBOX7.Visible = False

LINE3:          A = TEXTBOX1.Text
                B = TEXTBOX2.Text
                If A < 999 Or B < 999 Then GoTo LINE3

                RESULTAT = A + B
                TEXTBOX1.Text = A
                TEXTBOX2.Text = B

                TEXTBOX3.Text = RESULTAT
                'DECOUPAGE DE A

                A21 = Int(A / 100) : A2 = Int((StrReverse(A21)) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B

                B21 = Int(B / 100) : B2 = Int((StrReverse(B21)) / 10)
                B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
                B4 = Int((StrReverse(B)) / 1000)
                'CALCUL RETENUE
                If A2 + B2 >= 10 Then TEXTBOX6.Visible = True : R2 = 1 : TEXTBOX6.Text = R2 Else TEXTBOX6.Visible = False
                If A3 + B3 >= 10 Then TEXTBOX5.Visible = True : R1 = 1 : TEXTBOX5.Text = R1 Else TEXTBOX5.Visible = False

                If A4 + B4 >= 10 Then TEXTBOX4.Visible = True : R3 = 1 : TEXTBOX4.Text = R3 Else TEXTBOX4.Visible = False

        End Select
    End Sub

    Private Sub BUTTON2_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON2.Click
        'CORRECTION ADDITION
        PRENOM$ = UCase(TEXTBOX25.Text)

        C = NUMERICUPDOWN1.Text
        Select Case C
            Case 1
                A1 = A : B1 = B
                RESULTAT1 = TEXTBOX3.Text
                R = Int((A1 + B1) / 10)
                If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX3.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX3.BackColor = Color.White : LABEL11.Text = PRENOM$
                RI1 = TEXTBOX4.Text
                If RI1 <> R Then LABEL10.Text = "ERREUR DE RETENUES" : TEXTBOX4.BackColor = Color.Red Else LABEL10.Text = "C'EST TRES BIEN" : TEXTBOX4.BackColor = Color.White
            Case 2
                A1 = Int(A / 10)
                A2 = Int((StrReverse(A) / 10))
                B1 = Int(B / 10)
                B2 = Int((StrReverse(B) / 10))
                If A1 + B1 >= 10 Then R1 = 1 Else R1 = 0
                If A2 + B2 >= 10 Then R2 = 1 Else R2 = 0
                RESULTAT1 = TEXTBOX3.Text
                RI1 = TEXTBOX4.Text
                RI2 = TEXTBOX5.Text
                If RESULTAT1 <> RESULTAT Then LABEL12.Text = "RECALCULE,GROS BETA" : TEXTBOX3.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX3.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI1 <> R1 Then TEXTBOX4.BackColor = Color.Red : LABEL11.Text = PRENOM$ : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" Else TEXTBOX4.BackColor = Color.White
                If RI2 <> R2 Then TEXTBOX5.BackColor = Color.Red : LABEL11.Text = PRENOM$ : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" Else TEXTBOX5.BackColor = Color.White
            Case 3
                A1 = Int(A / 100)
                A21 = Int(A / 10) : A2 = Int((StrReverse(A21)) / 10)
                A3 = Int((StrReverse(A)) / 100)

                B1 = Int(B / 100)
                B21 = Int(B / 10) : B2 = Int((StrReverse(B21)) / 10)
                B3 = Int((StrReverse(B)) / 100)

                If A1 + B1 >= 10 Then R1 = 1 Else R1 = 0
                If A2 + B2 >= 10 Then R2 = 1 Else R2 = 0
                If A3 + B3 >= 10 Then R3 = 1 Else R3 = 0
                RESULTAT1 = TEXTBOX3.Text
                RI1 = TEXTBOX4.Text
                RI2 = TEXTBOX5.Text
                RI3 = TEXTBOX6.Text
                If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX3.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX3.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI1 <> R1 Then TEXTBOX4.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX4.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI2 <> R2 Then TEXTBOX5.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX5.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI3 <> R3 Then TEXTBOX6.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX6.BackColor = Color.White : LABEL11.Text = PRENOM$

            Case 4
                'DECOUPAGE DE A
                A1 = Int(A / 1000)
                A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                B1 = Int(B / 1000)
                B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
                B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
                B4 = Int((StrReverse(B)) / 1000)
                'CALCUL RETENUES

                If A1 + B1 >= 10 Then R1 = 1 Else R1 = 0
                If A2 + B2 >= 10 Then R2 = 1 Else R2 = 0
                If A3 + B3 >= 10 Then R3 = 1 Else R3 = 0
                If A4 + B4 >= 10 Then R4 = 1 Else R4 = 0

                RESULTAT1 = TEXTBOX3.Text
                RI1 = TEXTBOX4.Text
                RI2 = TEXTBOX5.Text
                RI3 = TEXTBOX6.Text
                RI4 = TEXTBOX7.Text
                If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX3.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX3.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI1 <> R1 Then TEXTBOX4.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX4.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI2 <> R2 Then TEXTBOX5.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX5.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI3 <> R3 Then TEXTBOX6.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX6.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI4 <> R4 Then TEXTBOX7.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX7.BackColor = Color.White : LABEL11.Text = PRENOM$

        End Select

    End Sub

    Private Sub FORM1_LOAD(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles MyBase.Load

        Randomize()
        TEXTBOX4.Visible = False
        TEXTBOX5.Visible = False
        TEXTBOX6.Visible = False
        TEXTBOX7.Visible = False
        PRENOM$ = UCase(TEXTBOX25.Text)
    End Sub

    Private Sub BUTTON4_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON4.Click

        C = Len(Str(A))
        Select Case C
            Case 1

                TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
                TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
                TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
                A1 = A : B1 = B

                RESULTAT = A - B
                TEXTBOX12.Text = RESULTAT
            Case 2

                TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
                TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
                TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()

                A1 = Int((StrReverse(A) / 10))
                B1 = Int((StrReverse(B) / 10))
                If A1 < B1 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
                TEXTBOX29.Text = R1
                TEXTBOX11.Text = R1

                RESULTAT = A - B
                TEXTBOX12.Text = RESULTAT
            Case 3

                TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX9.Visible = False : TEXTBOX27.Visible = False
                TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
                TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
                RESULTAT = A - B
                'DECOUPAGE DE A
                A1 = Int(A / 100)
                A21 = Int(A / 10) : A2 = Int(StrReverse(A21) / 10)
                A3 = Int((StrReverse(A)) / 100)
                'DECOUPAGE DE B
                B1 = Int(B / 100)
                B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
                B3 = Int((StrReverse(B)) / 100)
                If A3 < B3 Then TEXTBOX11.Visible = True : TEXTBOX29.Visible = True : R1 = 1 Else TEXTBOX11.Visible = False : TEXTBOX29.Visible = False
                If A2 < B2 Then TEXTBOX10.Visible = True : TEXTBOX28.Visible = True : R2 = 1 Else TEXTBOX10.Visible = False : TEXTBOX28.Visible = False
                TEXTBOX14.Text = A
                TEXTBOX13.Text = B
                TEXTBOX28.Text = R2
                TEXTBOX29.Text = R1
                TEXTBOX10.Text = R2
                TEXTBOX11.Text = R1
                RESULTAT = A - B
                TEXTBOX12.Text = RESULTAT
            Case 4

                TEXTBOX8.Visible = True : TEXTBOX26.Visible = True
                TEXTBOX9.Visible = True : TEXTBOX27.Visible = True
                TEXTBOX10.Visible = True : TEXTBOX28.Visible = True
                TEXTBOX11.Visible = True : TEXTBOX29.Visible = True
                TEXTBOX12.Clear() : TEXTBOX26.Clear()
                TEXTBOX8.Clear() : TEXTBOX27.Clear()
                TEXTBOX9.Clear() : TEXTBOX28.Clear()
                TEXTBOX10.Clear() : TEXTBOX29.Clear()
                TEXTBOX11.Clear()
                RESULTAT = A - B

                RESULTAT = A - B
                TEXTBOX12.Text = RESULTAT
                'DECOUPAGE DE A
                A1 = Int(A / 1000)
                A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                B1 = Int(B / 1000)
                B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
                B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
                B4 = Int((StrReverse(B)) / 1000)
                'DE
                'CALCUL RETENUES
                If A1 < B1 Then R1 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                If A2 < B2 Then R2 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                If A3 < B3 Then R3 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                If A4 < B4 Then R4 = 1 Else TEXTBOX8.Visible = False : TEXTBOX26.Visible = False
                TEXTBOX8.Text = R1
                TEXTBOX9.Text = R2
                TEXTBOX10.Text = R3
                TEXTBOX11.Text = R4
                TEXTBOX26.Text = R1
                TEXTBOX27.Text = R2
                TEXTBOX28.Text = R3
                TEXTBOX29.Text = R4
        End Select

    End Sub

    Private Sub BUTTON3_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON3.Click
        PRENOM$ = UCase(TEXTBOX25.Text)

        C = TEXTBOX30.Text
        Select Case C
            Case 1
                A1 = A : B1 = B
                RESULTAT1 = TEXTBOX12.Text

                If RESULTAT1 <> RESULTAT Then LABEL14.Text = "LE RESULTAT EST FAUX" : TEXTBOX12.BackColor = Color.Red : LABEL15.Text = PRENOM$ Else LABEL14.Text = "BRAVO" : TEXTBOX12.BackColor = Color.White : LABEL15.Text = PRENOM$

            Case 2
                A1 = Int(A / 10)
                A2 = Int((StrReverse(A) / 10))
                B1 = Int(B / 10)
                B2 = Int((StrReverse(B) / 10))
                If A1 < B1 Then R1 = 1 Else R1 = 0

                RESULTAT1 = TEXTBOX12.Text
                RI1 = TEXTBOX11.Text
                RI1 = TEXTBOX29.Text
                If RESULTAT1 <> RESULTAT Then LABEL14.Text = "RECALCULE,GROS BETA" : TEXTBOX12.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL14.Text = "BRAVO" : TEXTBOX12.BackColor = Color.White : LABEL15.Text = PRENOM$
                If RI1 <> R1 Then TEXTBOX19.BackColor = Color.Red : TEXTBOX11.BackColor = Color.Red : LABEL15.Text = PRENOM$ : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" Else TEXTBOX29.BackColor = Color.White : TEXTBOX11.BackColor = Color.White

            Case 3
                A1 = Int(A / 100)
                A21 = Int(A / 10) : A2 = Int((StrReverse(A21)) / 10)
                A3 = Int((StrReverse(A)) / 100)

                B1 = Int(B / 100)
                B21 = Int(B / 10) : B2 = Int((StrReverse(B21)) / 10)
                B3 = Int((StrReverse(B)) / 100)

                If A1 < B1 Then R1 = 1 Else R1 = 0
                If A2 < B2 Then R2 = 1 Else R2 = 0
                If A3 < B3 Then R3 = 1 Else R3 = 0
                RESULTAT1 = TEXTBOX12.Text
                RI1 = TEXTBOX11.Text
                RI2 = TEXTBOX10.Text
                RI3 = TEXTBOX9.Text
                If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX12.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX12.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI1 <> R1 Then TEXTBOX11.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX11.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI2 <> R2 Then TEXTBOX10.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX10.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI3 <> R3 Then TEXTBOX9.BackColor = Color.Red : LABEL10.Text = "ERREUR DE RETENUES" : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL11.Text = PRENOM$ Else TEXTBOX9.BackColor = Color.White : LABEL11.Text = PRENOM$

            Case 4
                'DECOUPAGE DE A
                A1 = Int(A / 1000)
                A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                B1 = Int(B / 1000)
                B21 = Int(B / 100) : B2 = Int(StrReverse(B21) / 10)
                B31 = Int((StrReverse(B)) / 100) : B3 = Int(B31 / 10)
                B4 = Int((StrReverse(B)) / 1000)
                'CALCUL RETENUES

                If A1 < B1 Then R1 = 1 Else R1 = 0
                If A2 < B2 Then R2 = 1 Else R2 = 0
                If A3 < B3 Then R3 = 1 Else R3 = 0
                If A4 < B4 Then R4 = 1 Else R4 = 0

                RESULTAT1 = TEXTBOX12.Text
                RI1 = TEXTBOX11.Text
                RI2 = TEXTBOX10.Text
                RI3 = TEXTBOX9.Text
                RI4 = TEXTBOX8.Text
                If RESULTAT1 <> RESULTAT Then LABEL12.Text = "LE RESULTAT EST FAUX" : TEXTBOX12.BackColor = Color.Red : LABEL11.Text = PRENOM$ Else LABEL12.Text = "BRAVO" : TEXTBOX12.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI1 <> R1 Then TEXTBOX11.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX11.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI2 <> R2 Then TEXTBOX10.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX10.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI3 <> R3 Then TEXTBOX9.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX9.BackColor = Color.White : LABEL11.Text = PRENOM$
                If RI4 <> R4 Then TEXTBOX8.BackColor = Color.Red : LABEL12.Text = "RECALCULE,GROS BETA" : LABEL10.Text = "ERREUR DE RETENUES" : LABEL11.Text = PRENOM$ Else TEXTBOX8.BackColor = Color.White : LABEL11.Text = PRENOM$

        End Select
    End Sub

    Private Sub BUTTON13_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON13.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        LABEL17.Text = "DONNE MOI LES THERMES QUE TU VEUX CALCULER PUIS CLIQUE SUR = " & " " & PRENOM$
        BUTTON5.Enabled = True
        BUTTON6.Enabled = False
        TEXTBOX21.Clear()
        TEXTBOX20.Clear()

    End Sub

    Private Sub BUTTON14_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON14.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        LABEL17.Text = "JE VAIS TE FAIRE UN EXEMPLE REGARDE BIEN" & " " & PRENOM$
        BUTTON5.Enabled = False
        BUTTON6.Enabled = False

        A = Int(Rnd() * 9999)
        B = Int(Rnd() * 999)
        If A < B Then A = B
        L$ = CStr(B)
        TEXTBOX21.Text = A
        TEXTBOX20.Text = B

        LABEL28.Text = "CETTE MULTIPLICATION A " & Len(CStr(B)) & "CHIFFRE AU MULTIPLICATEUR"
        Select Case Len(L$)
            'DECOUPAGE DE A
        Case 3
                RESULTAT = A * B
                LABEL5.Visible = True
                TEXTBOX19.Visible = True
                TEXTBOX23.Visible = True
                TEXTBOX22.Visible = True
                TEXTBOX19.Location = New Point(120, 272)
                LABEL5.Location = New Point(56, 432)
                TEXTBOX24.Location = New Point(120, 440)
                BUTTON5.Location = New Point(8, 456)
                TEXTBOX23.Location = New Point(120, 336)
                TEXTBOX22.Location = New Point(120, 384)
                RESULTAT = A * B
                TEXTBOX24.Text = RESULTAT
                A1 = Int(A / 1000)
                : A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                : A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                : A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                : B1 = Int(B / 100)
                : B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
                : B3 = Int((StrReverse(B)) / 100)
                'CALCUL RESULTATS INTER
                : RI1 = A * B1
                : RI2 = A * B2
                : RI3 = A * B3
               
                : TEXTBOX19.Text = RI3
                : TEXTBOX23.Text = RI2 & "0"
                : TEXTBOX22.Text = RI1 & "00"
                'CALCUL RETENUES
                If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
                If A2 * B1 <= 10 Then R2 = 0 Else R2 = Int((A2 * B1) / 10)
                If A3 * B1 <= 10 Then R3 = 0 Else R3 = Int((A3 * B1) / 10)
                '

                TEXTBOX15.Clear()
                TEXTBOX16.Clear()
                TEXTBOX17.Clear()
                TEXTBOX15.Text = R1
                TEXTBOX16.Text = R2
                TEXTBOX17.Text = R3
            Case 2
                TEXTBOX19.Visible = False
                TEXTBOX23.Visible = True
                TEXTBOX22.Visible = True
                LABEL5.Location = New Point(80, 376)
                TEXTBOX24.Location = New Point(120, 392)
                BUTTON5.Location = New Point(8, 392)
                TEXTBOX23.Location = New Point(120, 280)
                TEXTBOX22.Location = New Point(120, 336)
                RESULTAT = A * B
                TEXTBOX24.Text = RESULTAT
                A1 = Int(A / 1000)
                A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                B1 = Int(B / 10)
                B2 = Int(StrReverse(B) / 10)
                'CALCUL RESULTATS INTER
                RI1 = A * B1
                RI2 = A * B2
                TEXTBOX23.Text = RI2
                TEXTBOX22.Text = RI1 & "0"
                'CALCUL RETENUES
                If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
                If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
                TEXTBOX15.Text = R1
                TEXTBOX16.Text = R2
            Case 1
                TEXTBOX19.Visible = False
                TEXTBOX23.Visible = False
                TEXTBOX22.Visible = False
                LABEL5.Visible = False
                TEXTBOX24.Location = New Point(120, 272)
                BUTTON5.Location = New Point(8, 280)
                RESULTAT = A * B
                TEXTBOX24.Text = RESULTAT
        End Select
    End Sub

    Private Sub BUTTON5_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON5.Click
        A = TEXTBOX21.Text
        B = TEXTBOX20.Text

        If A < B Then A = B
        LABEL28.Text = "CETTE MULTIPLICATION A " & Len(CStr(B)) & "CHIFFRE AU MULTIPLICATEUR"
        L$ = CStr(B)
        Select Case Len(L$)
            'DECOUPAGE DE A
        Case 3
                RESULTAT = A * B

                TEXTBOX24.Text = RESULTAT
                A1 = Int(A / 1000)
                : A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                : A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                : A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                : B1 = Int(B / 100)
                : B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)
                : B3 = Int((StrReverse(B)) / 100)
                'CALCUL RESULTATS INTER
                : RI1 = A * B1
                : RI2 = A * B2
                : RI3 = A * B3
                : TEXTBOX19.Text = RI3
                : TEXTBOX23.Text = RI2 & "0"
                : TEXTBOX22.Text = RI1 & "00"
                'CALCUL RETENUES
                If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
                If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
                If A3 * B3 <= 10 Then R3 = 0 Else R3 = Int((A3 * B3) / 10)
                TEXTBOX15.Text = R1
                TEXTBOX16.Text = R2
                TEXTBOX17.Text = R3
            Case 2

                RESULTAT = A * B
                TEXTBOX24.Text = RESULTAT
                A1 = Int(A / 1000)
                A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                B1 = Int(B / 10)
                B2 = Int(StrReverse(B) / 10)
                'CALCUL RESULTATS INTER
                RI1 = A * B1
                RI2 = A * B2
                TEXTBOX23.Text = RI2
                TEXTBOX22.Text = RI1 & "0"
                'CALCUL RETENUES
                If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
                If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
                TEXTBOX15.Text = R1
                TEXTBOX16.Text = R2
            Case 1

                TEXTBOX24.Location = New Point(120, 272)
                BUTTON5.Location = New Point(8, 280)
                RESULTAT = A * B
                TEXTBOX24.Text = RESULTAT
        End Select

    End Sub

    Private Sub BUTTON6_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON6.Click
        L$ = CStr(B)
        Select Case Len(L$)
            Case 3
                RESULTAT = A * B
                LABEL5.Visible = True
                TEXTBOX19.Visible = True
                TEXTBOX23.Visible = True
                TEXTBOX22.Visible = True
                TEXTBOX19.Location = New Point(120, 272)
                LABEL5.Location = New Point(56, 432)
                TEXTBOX24.Location = New Point(120, 440)
                BUTTON5.Location = New Point(8, 456)
                TEXTBOX23.Location = New Point(120, 336)
                TEXTBOX22.Location = New Point(120, 384)
                RESULTAT1 = TEXTBOX24.Text
                'DECOUPAGE DE A
                A1 = Int(A / 1000)
                A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                B1 = Int(B / 100)
                B21 = Int(B / 10) : B2 = Int(StrReverse(B21) / 10)

                B3 = Int((StrReverse(B)) / 100)
                'CALCUL RESULTATS INTER
                RI1 = A * B1
                RI2 = A * B2
                RI3 = A * B3
                RI11 = TEXTBOX19.Text
                RI21 = TEXTBOX23.Text
                RI31 = TEXTBOX22.Text
                'CORRECTION RESULTAT
                If RESULTAT1 <> RESULTAT Then LABEL19.Text = "C'EST FAUX" & PRENOM$ Else LABEL19.Text = "C'EST BIEN" & PRENOM$
                If RESULTAT1 <> RESULTAT Then TEXTBOX24.BackColor = Color.Red Else TEXTBOX24.BackColor = Color.White
                If RI11 <> RI1 Then TEXTBOX19.BackColor = Color.Red Else TEXTBOX19.BackColor = Color.White
                If RI21 <> (RI2 * 10) Then TEXTBOX23.BackColor = Color.Red Else TEXTBOX23.BackColor = Color.White
                If RI31 <> (RI3 * 100) Then TEXTBOX22.BackColor = Color.Red Else TEXTBOX22.BackColor = Color.White
                'CALCUL RETENUES

                If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
                If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
                If A3 * B3 <= 10 Then R3 = 0 Else R3 = Int((A3 * B3) / 10)

                TEXTBOX15.Text = R1
                TEXTBOX16.Text = R2
                TEXTBOX17.Text = R3
            Case 2
                TEXTBOX19.Visible = False
                TEXTBOX23.Visible = True
                TEXTBOX22.Visible = True
                LABEL5.Location = New Point(80, 376)
                TEXTBOX24.Location = New Point(120, 392)
                BUTTON5.Location = New Point(8, 392)
                TEXTBOX23.Location = New Point(120, 280)
                TEXTBOX22.Location = New Point(120, 336)
                RESULTAT = A * B
                RESULTAT1 = TEXTBOX24.Text
                A1 = Int(A / 1000)
                A21 = Int(A / 100) : A2 = Int(StrReverse(A21) / 10)
                A31 = Int((StrReverse(A)) / 100) : A3 = Int(A31 / 10)
                A4 = Int((StrReverse(A)) / 1000)
                'DECOUPAGE DE B
                B1 = Int(B / 10)
                B2 = Int(StrReverse(B) / 10)
                'CALCUL RESULTATS INTER
                RI1 = A * B1
                RI2 = A * B2
                RI21 = TEXTBOX23.Text
                RI11 = TEXTBOX22.Text

                'CALCUL RETENUES
                If A1 * B1 <= 10 Then R1 = 0 Else R1 = Int((A1 * B1) / 10)
                If A2 * B2 <= 10 Then R2 = 0 Else R2 = Int((A2 * B2) / 10)
                TEXTBOX15.Text = R1
                TEXTBOX16.Text = R2

                'CORRECTION
                If RESULTAT1 <> RESULTAT Then LABEL19.Text = "C'EST FAUX" Else LABEL19.Text = "C'EST BIEN"
                If RESULTAT1 <> RESULTAT Then TEXTBOX24.BackColor = Color.Red Else TEXTBOX24.BackColor = Color.White
                If RI11 <> (RI1 * 10) Then TEXTBOX22.BackColor = Color.Red Else TEXTBOX22.BackColor = Color.White
                If RI21 <> RI2 Then TEXTBOX23.BackColor = Color.Red Else TEXTBOX23.BackColor = Color.White
            Case 1
                TEXTBOX19.Visible = False
                TEXTBOX23.Visible = False
                TEXTBOX22.Visible = False
                LABEL5.Visible = False
                TEXTBOX24.Location = New Point(120, 272)
                BUTTON5.Location = New Point(8, 280)
                RESULTAT = A * B
                RESULTAT1 = TEXTBOX24.Text
                If RESULTAT1 <> RESULTAT Then LABEL19.Text = "C'EST FAUX" Else LABEL19.Text = "C'EST BIEN"
                If RESULTAT1 <> RESULTAT Then TEXTBOX24.BackColor = Color.Red Else TEXTBOX24.BackColor = Color.White
        End Select

    End Sub

    Private Sub BUTTON15_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON15.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        LABEL17.Text = "DONNE MOI LES RESULTATS PUIS CLIQUE SUR * " & " " & PRENOM$
        BUTTON5.Enabled = False
        BUTTON6.Enabled = True
        A = Int(Rnd() * 9999)
        B = Int(Rnd() * 999)
        TEXTBOX21.Text = A
        TEXTBOX20.Text = B
        TEXTBOX19.Clear() : TEXTBOX19.BackColor = Color.White
        TEXTBOX23.Clear() : TEXTBOX23.BackColor = Color.White
        TEXTBOX22.Clear() : TEXTBOX22.BackColor = Color.White
        TEXTBOX24.Clear() : TEXTBOX24.BackColor = Color.White
        If A < B Then A = B
        L$ = CStr(B)
        Select Case Len(L$)
            Case 3
                LABEL5.Visible = True
                TEXTBOX19.Visible = True
                TEXTBOX23.Visible = True
                TEXTBOX22.Visible = True
                TEXTBOX19.Location = New Point(120, 272)
                LABEL5.Location = New Point(56, 432)
                TEXTBOX24.Location = New Point(120, 440)
                BUTTON5.Location = New Point(8, 456)
                TEXTBOX23.Location = New Point(120, 336)
                TEXTBOX22.Location = New Point(120, 384)
            Case 2
                TEXTBOX19.Visible = False
                TEXTBOX23.Visible = True
                TEXTBOX22.Visible = True
                LABEL5.Location = New Point(80, 376)
                TEXTBOX24.Location = New Point(120, 392)
                BUTTON5.Location = New Point(8, 392)
                TEXTBOX23.Location = New Point(120, 280)
                TEXTBOX22.Location = New Point(120, 336)
            Case 1
                TEXTBOX19.Visible = False
                TEXTBOX23.Visible = False
                TEXTBOX22.Visible = False
                LABEL5.Visible = False
                TEXTBOX24.Location = New Point(120, 272)
                BUTTON5.Location = New Point(8, 280)
        End Select

    End Sub

    Private Sub BUTTON19_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON19.Click
        PRENOM$ = UCase(TEXTBOX25.Text)
        For C = 0 To 10
            RESULTAT = C + A
            PRENOM$ = UCase(TEXTBOX25.Text)
            TEXTBOX18.Text = TEXTBOX18.Text & vbNewLine & A & " + " & C & " = " & CStr(RESULTAT)
            LABEL24.Text = "VOICI LA TABLE D'ADDITION DE " & A & " " & PRENOM$
        Next

    End Sub

    Private Sub BUTTON22_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON22.Click
        TEXTBOX18.Clear()

        A = 3
    End Sub

    Private Sub BUTTON26_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON26.Click
        TEXTBOX18.Clear()
        A = 7
    End Sub

    Private Sub BUTTON25_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON25.Click
        TEXTBOX18.Clear()
        A = 6
    End Sub

    Private Sub BUTTON24_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON24.Click
        TEXTBOX18.Clear()
        A = 5
    End Sub

    Private Sub BUTTON20_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON20.Click
        TEXTBOX18.Clear()
        A = 1
    End Sub

    Private Sub BUTTON21_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON21.Click
        TEXTBOX18.Clear()
        A = 2
    End Sub

    Private Sub BUTTON23_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON23.Click
        TEXTBOX18.Clear()
        A = 4
    End Sub

    Private Sub BUTTON16_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON16.Click
        TEXTBOX18.Clear()
        A = 0
    End Sub

    Private Sub BUTTON28_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON28.Click
        TEXTBOX18.Clear()
        A = 9
    End Sub

    Private Sub BUTTON27_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON27.Click
        TEXTBOX18.Clear()
        A = 8
    End Sub

    Private Sub TABPAGE5_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TABPAGE5.Click

    End Sub

    Private Sub TEXTBOX18_TEXTCHANGED_1(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TEXTBOX18.TextChanged

    End Sub

    Private Sub BUTTON18_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON18.Click
        For C = 0 To 10 Step 1
            RESULTAT = A - C
            PRENOM$ = UCase(TEXTBOX25.Text)
            TEXTBOX18.Text = TEXTBOX18.Text & vbNewLine & A & " - " & C & " = " & CStr(RESULTAT)
            LABEL24.Text = "VOICI LA TABLE DE SOUSTRACTION DE " & A & " " & PRENOM$
        Next
    End Sub

    Private Sub BUTTON17_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON17.Click
        For C = 0 To 10 Step 1
            RESULTAT = C * A
            PRENOM$ = UCase(TEXTBOX25.Text).ToLower
            TEXTBOX18.Text = TEXTBOX18.Text & vbNewLine & A & " * " & C & " = " & CStr(RESULTAT)
            LABEL24.Text = "VOICI LA TABLE DE MULTIPLICATION DE " & A & " " & PRENOM$
        Next
    End Sub

    Private Sub BUTTON29_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles BUTTON29.Click
        TEXTBOX18.Clear()
        A = 10
    End Sub

End Class

Conclusion :


mon premier logiciel utilitaire
je l'espere interressant
merci de me le faire savoir

A voir également

Ajouter un commentaire

Commentaires

Messages postés
440
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
6 mai 2010
1
c encor moi.
et puis moi personnellement je teste le logiciel avant de m'interressé au code comme ca je regarde les options interressante que tu as mi dedans.
Dison c'est ce ke je fai je ne sais pô si les autres font pareils mais bon...(Ce n'est pô une critique hein!!!!)
Messages postés
440
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
6 mai 2010
1
Tu sais ca a l'air interressant mais là en fait on ne pô tro regardé tout est compressé et tout dc voilà koi Pk tu ne met pas de fichier zip

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.