Dim posRec As New StringFormat
            posRec.LineAlignment = StringAlignment.Center
            posRec.Alignment = StringAlignment.Center
            .InfoFile.BarreUpload.CreateGraphics.DrawString(nbfilevalue "/" & nbfilemax & " (" & percentfile & ")", New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular), New SolidBrush(Color.Black), New Rectangle(0, 0, 114, 23), posRec)
            .InfoFile.BarreUpload.Maximum = nbfilemax '<= déclarée dans une autre classe
            .InfoFile.BarreUpload.Value = nbfilevalue '<= déclarée dans une autre classe