Files
Lecteur-media/lecteur/lecteur média/Form28.vb
T
2026-06-18 14:15:48 +02:00

1263 lines
83 KiB
VB.net

Imports System.IO
Public Class Form28
Dim sapi As Object
Private Sub Form28_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim lines1a() As String = File.ReadAllLines(théme)
If lines1a(0) = 2 Then
Me.BackColor = Color.FromArgb(64, 64, 64)
Button1.BackColor = Color.FromArgb(64, 64, 64)
Button1.ForeColor = Color.White
Label1.ForeColor = Color.White
Label2.ForeColor = Color.White
Label3.ForeColor = Color.White
Label4.ForeColor = Color.White
TextBox1.BackColor = Color.FromArgb(64, 64, 64)
TextBox1.ForeColor = Color.White
Button2.BackColor = Color.FromArgb(64, 64, 64)
Button2.ForeColor = Color.White
MenuStrip1.BackColor = Color.FromArgb(64, 64, 64)
MenuStrip1.ForeColor = Color.White
OuvrirUnTexteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
OuvrirUnTexteToolStripMenuItem.ForeColor = Color.White
VolumeToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
VolumeToolStripMenuItem.ForeColor = Color.White
VitesseToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
VitesseToolStripMenuItem.ForeColor = Color.White
QuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
QuitterToolStripMenuItem.ForeColor = Color.White
QuitterLireUnTexteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
QuitterLireUnTexteToolStripMenuItem.ForeColor = Color.White
MinimiserToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
MinimiserToolStripMenuItem.ForeColor = Color.White
Vitesse0ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
Vitesse0ToolStripMenuItem.ForeColor = Color.White
VitesseToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64)
VitesseToolStripMenuItem1.ForeColor = Color.White
VitesseToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64)
VitesseToolStripMenuItem2.ForeColor = Color.White
ToolStripMenuItem102.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem102.ForeColor = Color.White
ToolStripMenuItem103.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem103.ForeColor = Color.White
ToolStripMenuItem104.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem104.ForeColor = Color.White
ToolStripMenuItem105.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem105.ForeColor = Color.White
ToolStripMenuItem106.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem106.ForeColor = Color.White
ToolStripMenuItem107.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem107.ForeColor = Color.White
ToolStripMenuItem108.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem108.ForeColor = Color.White
ToolStripMenuItem109.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem109.ForeColor = Color.White
ToolStripMenuItem110.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem110.ForeColor = Color.White
ToolStripMenuItem111.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem111.ForeColor = Color.White
ToolStripMenuItem112.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem112.ForeColor = Color.White
ToolStripMenuItem113.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem113.ForeColor = Color.White
ToolStripMenuItem114.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem114.ForeColor = Color.White
ToolStripMenuItem115.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem115.ForeColor = Color.White
ToolStripMenuItem116.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem116.ForeColor = Color.White
ToolStripMenuItem117.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem117.ForeColor = Color.White
ToolStripMenuItem118.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem118.ForeColor = Color.White
ToolStripMenuItem119.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem119.ForeColor = Color.White
ToolStripMenuItem120.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem120.ForeColor = Color.White
ToolStripMenuItem121.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem121.ForeColor = Color.White
A10ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A10ToolStripMenuItem.ForeColor = Color.White
A20ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A20ToolStripMenuItem.ForeColor = Color.White
A30ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A30ToolStripMenuItem.ForeColor = Color.White
A40ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A40ToolStripMenuItem.ForeColor = Color.White
A50ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A50ToolStripMenuItem.ForeColor = Color.White
A60ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A60ToolStripMenuItem.ForeColor = Color.White
A70ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A70ToolStripMenuItem.ForeColor = Color.White
A80ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A80ToolStripMenuItem.ForeColor = Color.White
A90ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A90ToolStripMenuItem.ForeColor = Color.White
A100ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
A100ToolStripMenuItem.ForeColor = Color.White
ToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem2.ForeColor = Color.White
ToolStripMenuItem3.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem3.ForeColor = Color.White
ToolStripMenuItem4.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem4.ForeColor = Color.White
ToolStripMenuItem5.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem5.ForeColor = Color.White
ToolStripMenuItem6.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem6.ForeColor = Color.White
ToolStripMenuItem7.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem7.ForeColor = Color.White
ToolStripMenuItem8.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem8.ForeColor = Color.White
ToolStripMenuItem9.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem9.ForeColor = Color.White
ToolStripMenuItem10.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem10.ForeColor = Color.White
ToolStripMenuItem11.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem11.ForeColor = Color.White
ToolStripMenuItem12.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem12.ForeColor = Color.White
ToolStripMenuItem13.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem13.ForeColor = Color.White
ToolStripMenuItem14.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem14.ForeColor = Color.White
ToolStripMenuItem15.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem15.ForeColor = Color.White
ToolStripMenuItem16.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem16.ForeColor = Color.White
ToolStripMenuItem17.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem17.ForeColor = Color.White
ToolStripMenuItem18.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem18.ForeColor = Color.White
ToolStripMenuItem19.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem19.ForeColor = Color.White
ToolStripMenuItem20.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem20.ForeColor = Color.White
ToolStripMenuItem21.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem21.ForeColor = Color.White
ToolStripMenuItem22.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem22.ForeColor = Color.White
ToolStripMenuItem23.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem23.ForeColor = Color.White
ToolStripMenuItem24.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem24.ForeColor = Color.White
ToolStripMenuItem25.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem25.ForeColor = Color.White
ToolStripMenuItem26.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem26.ForeColor = Color.White
ToolStripMenuItem27.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem27.ForeColor = Color.White
ToolStripMenuItem28.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem28.ForeColor = Color.White
ToolStripMenuItem29.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem29.ForeColor = Color.White
ToolStripMenuItem30.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem30.ForeColor = Color.White
ToolStripMenuItem31.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem31.ForeColor = Color.White
ToolStripMenuItem32.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem32.ForeColor = Color.White
ToolStripMenuItem33.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem33.ForeColor = Color.White
ToolStripMenuItem34.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem34.ForeColor = Color.White
ToolStripMenuItem35.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem35.ForeColor = Color.White
ToolStripMenuItem36.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem36.ForeColor = Color.White
ToolStripMenuItem37.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem37.ForeColor = Color.White
ToolStripMenuItem38.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem38.ForeColor = Color.White
ToolStripMenuItem39.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem39.ForeColor = Color.White
ToolStripMenuItem40.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem40.ForeColor = Color.White
ToolStripMenuItem41.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem41.ForeColor = Color.White
ToolStripMenuItem42.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem42.ForeColor = Color.White
ToolStripMenuItem43.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem43.ForeColor = Color.White
ToolStripMenuItem44.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem44.ForeColor = Color.White
ToolStripMenuItem45.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem45.ForeColor = Color.White
ToolStripMenuItem46.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem46.ForeColor = Color.White
ToolStripMenuItem47.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem47.ForeColor = Color.White
ToolStripMenuItem48.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem48.ForeColor = Color.White
ToolStripMenuItem49.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem49.ForeColor = Color.White
ToolStripMenuItem50.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem50.ForeColor = Color.White
ToolStripMenuItem51.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem51.ForeColor = Color.White
ToolStripMenuItem52.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem52.ForeColor = Color.White
ToolStripMenuItem53.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem53.ForeColor = Color.White
ToolStripMenuItem54.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem54.ForeColor = Color.White
ToolStripMenuItem55.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem55.ForeColor = Color.White
ToolStripMenuItem56.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem56.ForeColor = Color.White
ToolStripMenuItem57.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem57.ForeColor = Color.White
ToolStripMenuItem58.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem58.ForeColor = Color.White
ToolStripMenuItem59.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem59.ForeColor = Color.White
ToolStripMenuItem60.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem60.ForeColor = Color.White
ToolStripMenuItem61.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem61.ForeColor = Color.White
ToolStripMenuItem62.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem62.ForeColor = Color.White
ToolStripMenuItem63.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem63.ForeColor = Color.White
ToolStripMenuItem64.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem64.ForeColor = Color.White
ToolStripMenuItem65.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem65.ForeColor = Color.White
ToolStripMenuItem66.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem66.ForeColor = Color.White
ToolStripMenuItem67.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem67.ForeColor = Color.White
ToolStripMenuItem68.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem68.ForeColor = Color.White
ToolStripMenuItem69.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem69.ForeColor = Color.White
ToolStripMenuItem70.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem70.ForeColor = Color.White
ToolStripMenuItem71.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem71.ForeColor = Color.White
ToolStripMenuItem72.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem72.ForeColor = Color.White
ToolStripMenuItem73.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem73.ForeColor = Color.White
ToolStripMenuItem74.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem74.ForeColor = Color.White
ToolStripMenuItem75.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem75.ForeColor = Color.White
ToolStripMenuItem76.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem76.ForeColor = Color.White
ToolStripMenuItem77.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem77.ForeColor = Color.White
ToolStripMenuItem78.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem78.ForeColor = Color.White
ToolStripMenuItem79.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem79.ForeColor = Color.White
ToolStripMenuItem80.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem80.ForeColor = Color.White
ToolStripMenuItem81.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem81.ForeColor = Color.White
ToolStripMenuItem82.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem82.ForeColor = Color.White
ToolStripMenuItem83.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem83.ForeColor = Color.White
ToolStripMenuItem84.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem84.ForeColor = Color.White
ToolStripMenuItem85.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem85.ForeColor = Color.White
ToolStripMenuItem86.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem86.ForeColor = Color.White
ToolStripMenuItem87.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem87.ForeColor = Color.White
ToolStripMenuItem88.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem88.ForeColor = Color.White
ToolStripMenuItem89.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem89.ForeColor = Color.White
ToolStripMenuItem90.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem90.ForeColor = Color.White
ToolStripMenuItem91.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem91.ForeColor = Color.White
ToolStripMenuItem92.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem92.ForeColor = Color.White
ToolStripMenuItem93.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem93.ForeColor = Color.White
ToolStripMenuItem94.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem94.ForeColor = Color.White
ToolStripMenuItem95.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem95.ForeColor = Color.White
ToolStripMenuItem96.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem96.ForeColor = Color.White
ToolStripMenuItem97.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem97.ForeColor = Color.White
ToolStripMenuItem98.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem98.ForeColor = Color.White
ToolStripMenuItem99.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem99.ForeColor = Color.White
ToolStripMenuItem100.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem100.ForeColor = Color.White
ToolStripMenuItem101.BackColor = Color.FromArgb(64, 64, 64)
ToolStripMenuItem101.ForeColor = Color.White
ElseIf lines1a(0) = 3 Then
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
MenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
MenuStrip1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
OuvrirUnTexteToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
OuvrirUnTexteToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
VolumeToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
VolumeToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
VitesseToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
VitesseToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
QuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
QuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
QuitterLireUnTexteToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
QuitterLireUnTexteToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
MinimiserToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
MinimiserToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
Vitesse0ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
Vitesse0ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
VitesseToolStripMenuItem1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
VitesseToolStripMenuItem1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
VitesseToolStripMenuItem2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
VitesseToolStripMenuItem2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem102.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem102.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem103.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem103.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem104.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem104.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem105.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem105.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem106.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem106.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem107.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem107.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem108.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem108.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem109.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem109.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem110.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem110.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem111.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem111.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem112.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem112.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem113.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem113.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem114.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem114.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem115.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem115.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem116.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem116.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem117.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem117.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem118.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem118.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem119.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem119.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem120.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem120.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem121.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem121.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A10ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A10ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A20ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A20ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A30ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A30ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A40ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A40ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A50ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A50ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A60ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A60ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A70ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A70ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A80ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A80ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A90ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A90ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
A100ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
A100ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem28.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem29.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem30.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem30.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem31.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem31.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem32.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem32.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem33.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem33.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem34.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem34.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem35.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem35.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem36.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem36.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem37.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem37.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem38.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem38.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem39.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem39.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem40.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem40.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem41.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem41.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem42.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem42.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem43.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem43.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem44.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem44.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem45.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem45.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem46.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem46.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem47.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem47.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem48.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem48.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem49.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem49.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem50.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem50.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem51.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem51.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem52.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem52.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem53.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem53.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem54.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem54.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem55.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem55.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem56.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem56.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem57.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem57.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem58.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem58.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem59.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem59.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem60.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem60.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem61.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem61.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem62.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem62.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem63.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem63.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem64.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem64.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem65.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem65.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem66.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem66.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem67.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem67.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem68.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem68.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem69.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem69.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem70.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem70.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem71.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem71.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem72.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem72.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem73.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem73.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem74.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem74.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem75.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem75.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem76.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem76.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem77.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem77.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem78.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem78.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem79.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem79.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem80.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem80.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem81.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem81.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem82.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem82.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem83.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem83.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem84.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem84.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem85.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem85.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem86.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem86.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem87.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem87.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem88.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem88.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem89.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem89.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem90.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem90.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem91.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem91.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem92.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem92.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem93.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem93.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem94.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem94.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem95.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem95.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem96.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem96.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem97.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem97.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem98.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem98.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem99.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem99.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem100.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem100.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
ToolStripMenuItem101.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
ToolStripMenuItem101.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
Else
End If
Label1.Text = TrackBar1.Value
Label2.Text = TrackBar2.Value
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
sapi = CreateObject("sapi.spvoice")
With sapi
.volume = TrackBar1.Value
.Rate = TrackBar2.Value
.speak(TextBox1.Text)
End With
End Sub
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
Label1.Text = TrackBar1.Value
End Sub
Private Sub TrackBar2_Scroll(sender As Object, e As EventArgs) Handles TrackBar2.Scroll
Label2.Text = TrackBar2.Value
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Clear()
End Sub
Private Sub QuitterLireUnTexteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterLireUnTexteToolStripMenuItem.Click
Close()
End Sub
Private Sub MinimiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimiserToolStripMenuItem.Click
Me.WindowState = WindowState.Minimized
End Sub
Private Sub OuvrirUnTexteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirUnTexteToolStripMenuItem.Click
If OpenFileDialog1.ShowDialog = 1 Then
TextBox1.Text = IO.File.ReadAllText(OpenFileDialog1.FileName)
End If
End Sub
Private Sub Form28_Closed(sender As Object, e As EventArgs) Handles Me.Closed
Me.Hide()
End Sub
Private Sub TextBox1_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then
Dim file As String = e.Data.GetData(DataFormats.FileDrop)(0)
If file.EndsWith(".txt") Then
e.Effect = DragDropEffects.All
Else
e.Effect = DragDropEffects.None
End If
End If
End Sub
Private Sub TextBox1_DragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then
Dim file As String = e.Data.GetData(DataFormats.FileDrop)(0)
Dim sr As New StreamReader(file)
TextBox1.Text = sr.ReadToEnd
End If
End Sub
Private Sub ToolStripMenuItem102_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem102.Click
TrackBar2.Value = 1
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem103_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem103.Click
TrackBar2.Value = 2
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem104_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem104.Click
TrackBar2.Value = 3
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem105_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem105.Click
TrackBar2.Value = 4
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem106_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem106.Click
TrackBar2.Value = 5
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem107_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem107.Click
TrackBar2.Value = 6
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem108_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem108.Click
TrackBar2.Value = 7
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem109_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem109.Click
TrackBar2.Value = 8
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem110_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem110.Click
TrackBar2.Value = 9
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem111_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem111.Click
TrackBar2.Value = 10
Label2.Text = TrackBar2.Value
End Sub
Private Sub Vitesse0ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Vitesse0ToolStripMenuItem.Click
TrackBar2.Value = 0
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem112_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem112.Click
TrackBar2.Value = -1
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem113_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem113.Click
TrackBar2.Value = -2
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem114_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem114.Click
TrackBar2.Value = -3
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem115_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem115.Click
TrackBar2.Value = -4
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem116_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem116.Click
TrackBar2.Value = -5
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem117_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem117.Click
TrackBar2.Value = -6
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem118_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem118.Click
TrackBar2.Value = -7
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem119_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem119.Click
TrackBar2.Value = -8
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem120_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem120.Click
TrackBar2.Value = -9
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem121_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem121.Click
TrackBar2.Value = -10
Label2.Text = TrackBar2.Value
End Sub
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
TrackBar1.Value = 1
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
TrackBar1.Value = 2
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
TrackBar1.Value = 3
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
TrackBar1.Value = 4
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
TrackBar1.Value = 5
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
TrackBar1.Value = 6
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
TrackBar1.Value = 7
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
TrackBar1.Value = 8
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
TrackBar1.Value = 9
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
TrackBar1.Value = 10
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
TrackBar1.Value = 11
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
TrackBar1.Value = 12
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
TrackBar1.Value = 13
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click
TrackBar1.Value = 14
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
TrackBar1.Value = 15
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click
TrackBar1.Value = 16
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
TrackBar1.Value = 17
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
TrackBar1.Value = 18
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
TrackBar1.Value = 19
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
TrackBar1.Value = 20
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click
TrackBar1.Value = 21
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
TrackBar1.Value = 22
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem24_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem24.Click
TrackBar1.Value = 23
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click
TrackBar1.Value = 24
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click
TrackBar1.Value = 25
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click
TrackBar1.Value = 26
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem28_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem28.Click
TrackBar1.Value = 27
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click
TrackBar1.Value = 28
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click
TrackBar1.Value = 29
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
TrackBar1.Value = 30
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem32_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.Click
TrackBar1.Value = 31
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click
TrackBar1.Value = 32
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click
TrackBar1.Value = 33
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem35_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem35.Click
TrackBar1.Value = 34
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem36_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem36.Click
TrackBar1.Value = 35
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem37_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem37.Click
TrackBar1.Value = 36
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem38_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem38.Click
TrackBar1.Value = 37
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem39_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem39.Click
TrackBar1.Value = 38
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem40_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem40.Click
TrackBar1.Value = 39
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem41_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem41.Click
TrackBar1.Value = 40
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem42_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem42.Click
TrackBar1.Value = 41
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem43_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem43.Click
TrackBar1.Value = 42
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem44_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem44.Click
TrackBar1.Value = 43
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem45_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem45.Click
TrackBar1.Value = 44
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem46_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem46.Click
TrackBar1.Value = 45
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem47_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem47.Click
TrackBar1.Value = 46
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem48_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem48.Click
TrackBar1.Value = 47
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem49_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem49.Click
TrackBar1.Value = 48
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem50_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem50.Click
TrackBar1.Value = 49
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem51_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem51.Click
TrackBar1.Value = 50
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem52_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem52.Click
TrackBar1.Value = 51
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem53_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem53.Click
TrackBar1.Value = 52
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem54_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem54.Click
TrackBar1.Value = 53
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem55_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem55.Click
TrackBar1.Value = 54
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem56_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem56.Click
TrackBar1.Value = 55
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem57_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem57.Click
TrackBar1.Value = 56
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem58_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem58.Click
TrackBar1.Value = 57
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem59_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem59.Click
TrackBar1.Value = 58
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem60_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem60.Click
TrackBar1.Value = 59
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem61_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem61.Click
TrackBar1.Value = 60
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem62_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem62.Click
TrackBar1.Value = 61
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem63_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem63.Click
TrackBar1.Value = 62
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem64_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem64.Click
TrackBar1.Value = 63
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem65_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem65.Click
TrackBar1.Value = 64
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem66_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem66.Click
TrackBar1.Value = 65
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem67_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem67.Click
TrackBar1.Value = 66
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem68_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem68.Click
TrackBar1.Value = 67
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem69_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem69.Click
TrackBar1.Value = 68
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem70_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem70.Click
TrackBar1.Value = 69
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem71_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem71.Click
TrackBar1.Value = 70
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem72_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem72.Click
TrackBar1.Value = 71
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem73_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem73.Click
TrackBar1.Value = 72
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem74_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem74.Click
TrackBar1.Value = 73
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem75_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem75.Click
TrackBar1.Value = 74
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem76_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem76.Click
TrackBar1.Value = 75
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem77_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem77.Click
TrackBar1.Value = 76
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem78_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem78.Click
TrackBar1.Value = 77
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem79_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem79.Click
TrackBar1.Value = 78
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem80_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem80.Click
TrackBar1.Value = 79
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem81_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem81.Click
TrackBar1.Value = 80
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem82_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem82.Click
TrackBar1.Value = 81
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem83_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem83.Click
TrackBar1.Value = 82
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem84_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem84.Click
TrackBar1.Value = 83
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem85_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem85.Click
TrackBar1.Value = 84
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem86_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem86.Click
TrackBar1.Value = 85
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem87_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem87.Click
TrackBar1.Value = 86
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem88_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem88.Click
TrackBar1.Value = 87
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem89_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem89.Click
TrackBar1.Value = 88
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem90_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem90.Click
TrackBar1.Value = 89
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem91_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem91.Click
TrackBar1.Value = 90
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem92_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem92.Click
TrackBar1.Value = 91
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem93_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem93.Click
TrackBar1.Value = 92
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem94_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem94.Click
TrackBar1.Value = 93
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem95_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem95.Click
TrackBar1.Value = 94
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem96_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem96.Click
TrackBar1.Value = 95
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem97_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem97.Click
TrackBar1.Value = 96
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem98_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem98.Click
TrackBar1.Value = 97
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem99_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem99.Click
TrackBar1.Value = 98
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem100_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem100.Click
TrackBar1.Value = 99
Label1.Text = TrackBar1.Value
End Sub
Private Sub ToolStripMenuItem101_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem101.Click
TrackBar1.Value = 100
Label1.Text = TrackBar1.Value
End Sub
End Class