Imports System.ComponentModel
Imports System.IO
Public Class Form7
    Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lines2() As String = File.ReadAllLines(langue)
        If lines2(0) = 2 Then
            langen()
        End If
        Form1.AxWindowsMediaPlayer1.Ctlcontrols.stop()
        Form1.Hide()
        Me.Show()
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim lines2() As String = File.ReadAllLines(langue)
        If lines2(0) = 2 Then
            langen()
        End If
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
            Timer1.Stop()
            Form1.Show()
            Me.Hide()
        End If
        Label1.Text = ProgressBar1.Value & "%"
    End Sub
    Sub langen()
        Me.Text = "loading changes in progress"
        Label2.Text = "loading changes in progress"
    End Sub

    Private Sub Form7_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        e.Cancel = True
    End Sub
End Class