ProgressBar, показывающий ресурс

Question

Я хотел показать pourcentage в ProgressBar, но он показывает 1% для одного обнаруженного файла вместо 100%.

снимок экрана

Я понимаю, почему это показывает мне 1%, и я знаю, что я должен изменить Label1Text на другое значение, но я не вижу, какое из них решит проблему.

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Dim dossier = "C:\Users\adm\Desktop\A"
        Dim lesFichiers() As System.IO.FileInfo
        Dim dirinfo As New System.IO.DirectoryInfo(dossier)
        lesFichiers = dirinfo.GetFiles("*", IO.SearchOption.AllDirectories)
        For Each chaqueFichier In lesFichiers
            ProgressBar1.Maximum = lesFichiers.Length
                ProgressBar1.Value += 1
            Next
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(2)
        label1.Text = ProgressBar1.Value & " %"
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
        End If
    End Sub

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs)
        Label1.BackColor = Color.Transparent
    End Sub

    Private Sub ProgressBar1_Click(sender As System.Object, e As System.EventArgs) Handles ProgressBar1.Click

    End Sub
End Class