Lecteur-media/lecteur/lecteur média/Les enquêtes du commissaire Jérôme 2.vb

Public Class Les_enquêtes_du_commissaire_Jérôme_2
    Dim sapi As Object
    Private Sub le_mystère_du_cercle_rouge_2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub LireToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LireToolStripMenuItem.Click
        Dim msg = MsgBox("attention une fois cliquer sur oui vous ne pouvez plus arrêter la lecture", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            sapi = CreateObject("sapi.spvoice")

            With sapi
                .volume = TrackBar1volume.Value
                .Rate = TrackBar2vistesse.Value
                .speak(TextBox1.Text)

            End With
        Else
            Exit Sub
        End If
    End Sub

    Private Sub ToolStripMenuItem24_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem24.Click
        TrackBar1volume.Value = 1
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click
        TrackBar1volume.Value = 2
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click
        TrackBar1volume.Value = 3
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click
        TrackBar1volume.Value = 4
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem28_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem28.Click
        TrackBar1volume.Value = 5
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click
        TrackBar1volume.Value = 6
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click
        TrackBar1volume.Value = 7
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
        TrackBar1volume.Value = 8
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem32_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.Click
        TrackBar1volume.Value = 9
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click
        TrackBar1volume.Value = 10
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click
        TrackBar1volume.Value = 11
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem35_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem35.Click
        TrackBar1volume.Value = 12
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem36_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem36.Click
        TrackBar1volume.Value = 13
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem37_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem37.Click
        TrackBar1volume.Value = 14
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem38_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem38.Click
        TrackBar1volume.Value = 15
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem39_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem39.Click
        TrackBar1volume.Value = 16
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem40_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem40.Click
        TrackBar1volume.Value = 17
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem41_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem41.Click
        TrackBar1volume.Value = 18
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem42_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem42.Click
        TrackBar1volume.Value = 19
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem43_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem43.Click
        TrackBar1volume.Value = 20
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem44_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem44.Click
        TrackBar1volume.Value = 21
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem45_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem45.Click
        TrackBar1volume.Value = 22
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem46_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem46.Click
        TrackBar1volume.Value = 23
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem47_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem47.Click
        TrackBar1volume.Value = 24
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem48_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem48.Click
        TrackBar1volume.Value = 25
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem49_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem49.Click
        TrackBar1volume.Value = 26
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem50_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem50.Click
        TrackBar1volume.Value = 27
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem51_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem51.Click
        TrackBar1volume.Value = 28
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem52_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem52.Click
        TrackBar1volume.Value = 29
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem53_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem53.Click
        TrackBar1volume.Value = 30
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem54_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem54.Click
        TrackBar1volume.Value = 31
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem55_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem55.Click
        TrackBar1volume.Value = 32
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem56_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem56.Click
        TrackBar1volume.Value = 33
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem57_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem57.Click
        TrackBar1volume.Value = 34
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem58_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem58.Click
        TrackBar1volume.Value = 35
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem59_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem59.Click
        TrackBar1volume.Value = 36
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem60_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem60.Click
        TrackBar1volume.Value = 37
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem61_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem61.Click
        TrackBar1volume.Value = 38
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem62_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem62.Click
        TrackBar1volume.Value = 39
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem63_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem63.Click
        TrackBar1volume.Value = 40
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem64_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem64.Click
        TrackBar1volume.Value = 41
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem65_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem65.Click
        TrackBar1volume.Value = 42
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem66_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem66.Click
        TrackBar1volume.Value = 43
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem67_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem67.Click
        TrackBar1volume.Value = 44
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem68_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem68.Click
        TrackBar1volume.Value = 45
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem69_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem69.Click
        TrackBar1volume.Value = 46
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem70_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem70.Click
        TrackBar1volume.Value = 47
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem71_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem71.Click
        TrackBar1volume.Value = 48
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem72_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem72.Click
        TrackBar1volume.Value = 49
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem73_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem73.Click
        TrackBar1volume.Value = 50
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem74_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem74.Click
        TrackBar1volume.Value = 51
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem75_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem75.Click
        TrackBar1volume.Value = 52
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem76_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem76.Click
        TrackBar1volume.Value = 53
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem77_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem77.Click
        TrackBar1volume.Value = 54
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem78_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem78.Click
        TrackBar1volume.Value = 55
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem79_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem79.Click
        TrackBar1volume.Value = 56
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem80_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem80.Click
        TrackBar1volume.Value = 57
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem81_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem81.Click
        TrackBar1volume.Value = 58
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem82_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem82.Click
        TrackBar1volume.Value = 59
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem83_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem83.Click
        TrackBar1volume.Value = 60
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem84_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem84.Click
        TrackBar1volume.Value = 61
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem85_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem85.Click
        TrackBar1volume.Value = 62
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem86_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem86.Click
        TrackBar1volume.Value = 63
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem87_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem87.Click
        TrackBar1volume.Value = 64
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem88_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem88.Click
        TrackBar1volume.Value = 65
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem89_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem89.Click
        TrackBar1volume.Value = 66
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem90_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem90.Click
        TrackBar1volume.Value = 67
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem91_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem91.Click
        TrackBar1volume.Value = 68
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem92_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem92.Click
        TrackBar1volume.Value = 69
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem93_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem93.Click
        TrackBar1volume.Value = 70
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem94_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem94.Click
        TrackBar1volume.Value = 71
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem95_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem95.Click
        TrackBar1volume.Value = 72
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem96_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem96.Click
        TrackBar1volume.Value = 73
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem97_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem97.Click
        TrackBar1volume.Value = 74
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem98_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem98.Click
        TrackBar1volume.Value = 75
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem99_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem99.Click
        TrackBar1volume.Value = 76
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem100_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem100.Click
        TrackBar1volume.Value = 77
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem101_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem101.Click
        TrackBar1volume.Value = 78
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem102_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem102.Click
        TrackBar1volume.Value = 79
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem103_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem103.Click
        TrackBar1volume.Value = 80
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem104_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem104.Click
        TrackBar1volume.Value = 81
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem105_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem105.Click
        TrackBar1volume.Value = 82
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem106_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem106.Click
        TrackBar1volume.Value = 83
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem107_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem107.Click
        TrackBar1volume.Value = 84
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem108_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem108.Click
        TrackBar1volume.Value = 85
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem109_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem109.Click
        TrackBar1volume.Value = 86
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem110_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem110.Click
        TrackBar1volume.Value = 87
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem111_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem111.Click
        TrackBar1volume.Value = 88
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem112_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem112.Click
        TrackBar1volume.Value = 89
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem113_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem113.Click
        TrackBar1volume.Value = 90
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem114_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem114.Click
        TrackBar1volume.Value = 91
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem115_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem115.Click
        TrackBar1volume.Value = 92
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem116_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem116.Click
        TrackBar1volume.Value = 93
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem117_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem117.Click
        TrackBar1volume.Value = 94
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem118_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem118.Click
        TrackBar1volume.Value = 95
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem119_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem119.Click
        TrackBar1volume.Value = 96
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem120_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem120.Click
        TrackBar1volume.Value = 97
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem121_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem121.Click
        TrackBar1volume.Value = 98
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem122_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem122.Click
        TrackBar1volume.Value = 99
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem123_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem123.Click
        TrackBar1volume.Value = 100
        Labelvolume.Text = "volume: " & TrackBar1volume.Value & "%"
    End Sub

    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
        TrackBar2vistesse.Value = 0
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
        TrackBar2vistesse.Value = 1
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
        TrackBar2vistesse.Value = 2
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
        TrackBar2vistesse.Value = 3
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
        TrackBar2vistesse.Value = 4
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
        TrackBar2vistesse.Value = 5
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
        TrackBar2vistesse.Value = 6
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
        TrackBar2vistesse.Value = 7
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
        TrackBar2vistesse.Value = 8
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
        TrackBar2vistesse.Value = 9
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
        TrackBar2vistesse.Value = 10
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
        TrackBar2vistesse.Value = 0
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
        TrackBar2vistesse.Value = -1
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click
        TrackBar2vistesse.Value = -2
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
        TrackBar2vistesse.Value = -3
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click
        TrackBar2vistesse.Value = -4
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
        TrackBar2vistesse.Value = -5
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
        TrackBar2vistesse.Value = -6
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
        TrackBar2vistesse.Value = -7
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
        TrackBar2vistesse.Value = -8
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click
        TrackBar2vistesse.Value = -9
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub

    Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
        TrackBar2vistesse.Value = -10
        Labelvitse.Text = "vitesse: " & TrackBar2vistesse.Value
    End Sub
End Class