Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Threading
Imports System.Timers
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Status

Public Class Form10
    Dim nombreimage As String = ""
    Dim vueimage As Integer = 1
    Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If Form5.dl = 1 Then
            Me.Text = "image du jeux: " & Form3.ListBox2.SelectedItem
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo.txt")
            nombreimage = vri3
            If vri3 = 1 Then
                dl1()
            ElseIf vri3 = 2 Then
                dl2()
            ElseIf vri3 = 3 Then
                dl3()
            ElseIf vri3 = 4 Then
                dl4()
            End If
        ElseIf Form5.dl = 3 Then
            Me.Text = "image de: " & Form3.ListBox4.SelectedItem
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo.txt")
            nombreimage = vri3
            If vri3 = 1 Then
                dl5()
            ElseIf vri3 = 2 Then
                dl6()
            ElseIf vri3 = 3 Then
                dl7()
            ElseIf vri3 = 4 Then
                dl8()
            End If
        ElseIf Form5.dl = 4 Then
            Me.Text = "image de: " & Form3.ListBox5.SelectedItem
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo.txt")
            nombreimage = vri3
            If vri3 = 1 Then
                dl9
            ElseIf vri3 = 2 Then
                dl10
            ElseIf vri3 = 3 Then
                dl11
            ElseIf vri3 = 4 Then
                dl12
            End If
        ElseIf Form5.dl = 5 Then
            Me.Text = "image de: " & Form3.ListBox6.SelectedItem
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo.txt")
            nombreimage = vri3
            If vri3 = 1 Then
                dl13
            ElseIf vri3 = 2 Then
                dl14
            ElseIf vri3 = 3 Then
                dl15
            ElseIf vri3 = 4 Then
                dl16
            End If
        ElseIf Form5.dl = 6 Then
            Me.Text = "image de: " & Form3.ListBox7.SelectedItem
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo.txt")
            nombreimage = vri3
            If vri3 = 1 Then
                dl17
            ElseIf vri3 = 2 Then
                dl18
            ElseIf vri3 = 3 Then
                dl19
            ElseIf vri3 = 4 Then
                dl20
            End If
        ElseIf Form5.dl = 7 Then
            Me.Text = "image de: " & Form3.ListBox8.SelectedItem
            Dim maj3 As New WebClient
            Dim vri3 As String = maj3.DownloadString(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo.txt")
            nombreimage = vri3
            If vri3 = 1 Then
                dl21
            ElseIf vri3 = 2 Then
                dl22
            ElseIf vri3 = 3 Then
                dl23
            ElseIf vri3 = 4 Then
                dl24
            End If
        End If
    End Sub
    Sub dl1()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub
    Sub dl2()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetFiles(dostemps)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(dostemps & info.Name)
            Next
            Timer2.Start()
        End Try
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetFiles(dostemps)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(dostemps & info.Name)
            Next
            Timer2.Start()
        End Try
    End Sub
    Sub dl3()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetFiles(dostemps)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(dostemps & info.Name)
            Next
            Timer3.Start()
        End Try
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Timer3.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetFiles(dostemps)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(dostemps & info.Name)
            Next
            Timer3.Start()
        End Try
    End Sub
    Sub dl4()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetFiles(dostemps)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(dostemps & info.Name)
            Next
            Timer4.Start()
        End Try
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        Timer4.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/" & Form3.ComboBox2.SelectedItem.ToString & "/" & Form3.ListBox2.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetFiles(dostemps)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(dostemps & info.Name)
            Next
            Timer4.Start()
        End Try
    End Sub

    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

    End Sub

    Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click
        If vueimage = nombreimage Then
            vueimage = 1
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Else
            vueimage = vueimage + 1
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(dostemps & "/photo" & vueimage & ".png")
        End If
    End Sub

    Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs) Handles Panel2.Paint

    End Sub

    Private Sub Panel2_Click(sender As Object, e As EventArgs) Handles Panel2.Click
        If vueimage = 1 Then
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Else
            vueimage = vueimage - 1
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(dostemps & "/photo" & vueimage & ".png")
        End If
    End Sub

    Private Sub Form10_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        PictureBox1.Image.Dispose()
        For Each fichier As String In IO.Directory.GetFiles(dostemps)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(dostemps & info.Name)
        Next
    End Sub

    Private Sub Panel1_MouseEnter(sender As Object, e As EventArgs) Handles Panel1.MouseEnter
        Panel1.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Panel1_MouseLeave(sender As Object, e As EventArgs) Handles Panel1.MouseLeave
        Panel1.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        If vueimage = nombreimage Then
            vueimage = 1
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Else
            vueimage = vueimage + 1
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(dostemps & "/photo" & vueimage & ".png")
        End If
    End Sub

    Private Sub PictureBox2_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox2.MouseEnter
        Panel1.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub PictureBox2_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox2.MouseLeave
        Panel1.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        If vueimage = 1 Then
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Else
            vueimage = vueimage - 1
            PictureBox1.Image.Dispose()
            PictureBox1.Image = Image.FromFile(dostemps & "/photo" & vueimage & ".png")
        End If
    End Sub

    Private Sub Panel2_MouseEnter(sender As Object, e As EventArgs) Handles Panel2.MouseEnter
        Panel2.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub Panel2_MouseLeave(sender As Object, e As EventArgs) Handles Panel2.MouseLeave
        Panel2.BackColor = Color.FromArgb(64, 64, 64)
    End Sub

    Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter
        Panel2.BackColor = Color.FromArgb(32, 32, 32)
    End Sub

    Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
        Panel2.BackColor = Color.FromArgb(64, 64, 64)
    End Sub
    Sub dl5()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub
    Sub dl6()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer6.Start()
        End Try
    End Sub
    Sub dl7()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer7.Start()
        End Try
    End Sub
    Sub dl8()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Timer5.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Timer6.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer6.Start()
        End Try
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        Timer7.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer7.Start()
        End Try
    End Sub

    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        Timer8.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/mod/" & Form3.ComboBox4.SelectedItem.ToString & "/" & Form3.ListBox4.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub
    Sub dl9()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer9.Start()
        End Try
    End Sub
    Sub dl10()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer10.Start()
        End Try
    End Sub
    Sub dl11()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer11.Start()
        End Try
    End Sub
    Sub dl12()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer12.Start()
        End Try
    End Sub

    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
        Timer9.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer9.Start()
        End Try
    End Sub

    Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        Timer10.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer10.Start()
        End Try
    End Sub

    Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
        Timer11.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer11.Start()
        End Try
    End Sub

    Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
        Timer12.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/plugin/" & Form3.ComboBox5.SelectedItem.ToString & "/" & Form3.ListBox5.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer12.Start()
        End Try
    End Sub
    Sub dl13()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer13.Start()
        End Try
    End Sub
    Sub dl14()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer14.Start()
        End Try
    End Sub
    Sub dl15()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer15.Start()
        End Try
    End Sub
    Sub dl16()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer16.Start()
        End Try
    End Sub

    Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
        Timer13.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer13.Start()
        End Try
    End Sub

    Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
        Timer14.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer14.Start()
        End Try
    End Sub

    Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
        Timer15.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer15.Start()
        End Try
    End Sub

    Private Sub Timer16_Tick(sender As Object, e As EventArgs) Handles Timer16.Tick
        Timer16.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/map/" & Form3.ComboBox6.SelectedItem.ToString & "/" & Form3.ListBox6.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer16.Start()
        End Try
    End Sub
    Sub dl17()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer17.Start()
        End Try
    End Sub
    Sub dl18()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer18.Start()
        End Try
    End Sub
    Sub dl19()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer19.Start()
        End Try
    End Sub
    Sub dl20()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub

    Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
        Timer17.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer17.Start()
        End Try
    End Sub

    Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
        Timer18.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer18.Start()
        End Try
    End Sub

    Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
        Timer19.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer19.Start()
        End Try
    End Sub

    Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
        Timer20.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/serveur/" & Form3.ComboBox7.SelectedItem.ToString & "/" & Form3.ListBox7.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub
    Sub dl21()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer21.Start()
        End Try
    End Sub
    Sub dl22()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer22.Start()
        End Try
    End Sub
    Sub dl23()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer23.Start()
        End Try
    End Sub
    Sub dl24()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer24.Start()
        End Try
    End Sub

    Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
        Timer21.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer21.Start()
        End Try
    End Sub

    Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
        Timer22.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer22.Start()
        End Try
    End Sub

    Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
        Timer23.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer23.Start()
        End Try
    End Sub

    Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick
        Timer24.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo1.png", dostemps & "/photo1.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo2.png", dostemps & "/photo2.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo3.png", dostemps & "/photo3.png")
            My.Computer.Network.DownloadFile(ipsite & "extrème downloaders/Téléchargeur/jeux/Minecraft/Launcher/" & Form3.ListBox8.SelectedItem.ToString & "/photo4.png", dostemps & "/photo4.png")
            PictureBox1.Image = Image.FromFile(dostemps & "/photo1.png")
        Catch ex As Exception
            Timer24.Start()
        End Try
    End Sub
End Class