Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = ProgressBar1.Value + 1
        Label5.Text = ProgressBar1.Value.ToString & ("%")
        If ProgressBar1.Value = 1 Then
            Timer1.Interval = 6000
            Label4.Text = " Connecting with internet"
        End If
        If ProgressBar1.Value = 2 Then
            Timer1.Interval = 2500
            Label4.Text = " Gathering files"
        End If
        If ProgressBar1.Value = 3 Then
            Timer1.Interval = 3050
            Label4.Text = " Starting to download..."
        End If
        If ProgressBar1.Value = 4 Then
            Timer1.Interval = 4000
            Label4.Text = " Downloading crtcab.bin "
        End If
        If ProgressBar1.Value = 10 Then
            Timer1.Interval = 15000
            Label4.Text = " Downloading crtcab.bin "
        End If
        If ProgressBar1.Value = 12 Then
            Timer1.Interval = 90000
            Label4.Text = " Downloading data1.cab"
        End If
        If ProgressBar1.Value = 15 Then
            Timer1.Interval = 25000
            PictureBox2.Show()
            Label4.Text = " Downloading data1.cab"
        End If
        If ProgressBar1.Value = 18 Then
            Timer1.Interval = 300000
            Label4.Text = " Downloading game_graphics.bin"
        End If
        If ProgressBar1.Value = 22 Then
            Timer1.Interval = 60000
            Label4.Text = " Downloading data2.cab"

        End If
        If ProgressBar1.Value = 26 Then
            Timer1.Interval = 30000
            Label4.Text = " Downloading data2.cab"
        End If
        If ProgressBar1.Value = 29 Then
            Timer1.Interval = 300
            Label4.Text = " Please Enter License key"
            Label4.ForeColor = Color.Red
            Timer1.Stop()
            Form8.Show()
        End If
        If ProgressBar1.Value = 30 Then
            Timer1.Interval = 2000
            Label4.Text = " License key approved"
            Label4.ForeColor = Color.Green
        End If
        If ProgressBar1.Value = 32 Then
            Timer1.Interval = 10000
            Label4.Text = " Downloading config.cfg"
            Label4.ForeColor = Color.Black
        End If
        If ProgressBar1.Value = 36 Then
            Timer1.Interval = 100000
            Label4.Text = " Downloading data3.cab"
        End If
        If ProgressBar1.Value = 40 Then
            Timer1.Interval = 10000
            Label4.Text = " Downloading data3.cab"
        End If
        If ProgressBar1.Value = 46 Then
            Timer1.Interval = 17770
            Label4.Text = " Downloading data3.cab"
        End If
        If ProgressBar1.Value = 48 Then
            Timer1.Interval = 5000
            Label4.Text = " Downloading game_controller.bin"
        End If
        If ProgressBar1.Value = 51 Then
            Timer1.Interval = 3500
            Label4.Text = " Downloading game_controller.bin"
        End If
        If ProgressBar1.Value = 55 Then
            Timer1.Interval = 333300
            Label4.Text = " Downloading data4.cab"
        End If
        If ProgressBar1.Value = 60 Then
            Timer1.Interval = 40000
            Label4.Text = " Downloading data4.cab"
        End If
        If ProgressBar1.Value = 70 Then
            Timer1.Interval = 10000
            Label4.Text = " Extracting Files"
        End If
        If ProgressBar1.Value = 71 Then
            Timer1.Interval = 30000
            Label4.Text = " Starting installation"
        End If
        If ProgressBar1.Value = 81 Then
            Timer1.Interval = 6000
            Label4.Text = " Extracting GodofWar.exe"
        End If
        If ProgressBar1.Value = 85 Then
            Timer1.Interval = 15000
            Label4.Text = " Applying Update_v1"
        End If
        If ProgressBar1.Value = 90 Then
            Timer1.Interval = 2500
            Label4.Text = " Applying Update_v2"
        End If
        If ProgressBar1.Value = 95 Then
            Label4.Text = " Applying Update_v3"
        End If
        If ProgressBar1.Value = 96 Then
            Timer1.Interval = 2500
            Label4.Text = " Finishing"
        End If
        If ProgressBar1.Value = 97 Then
            Timer1.Interval = 2500
            Label4.Text = " Finishing."
        End If
        If ProgressBar1.Value = 98 Then
            Timer1.Interval = 2500
            Label4.Text = " Finishing.."
        End If
        If ProgressBar1.Value = 99 Then
            Timer1.Interval = 2500
            Label4.Text = " Finishing..."
        End If
        If ProgressBar1.Value = 100 Then
            Label4.Text = "Finished"
            Timer1.Stop()
            Form7.Show()
            Me.Enabled = False
        End If
    End Sub