Comportement de System.Windows.Forms.ProgressBar

Microsoft Visual Studio Community 2017 Version 15.6.6
VB.Net Framework 4.6.1

Bonjour,

Sur un Form, j'ai déposé un ProgressBar, un Label et un Button.
Voici le code tout simple de l'événement Click de Button1 pour tester la progression affichée dans ProgressBar1 et qui me laisse perplexe :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ProgressBar1.Minimum = 0 ProgressBar1.Maximum = 1999 For value As Integer = ProgressBar1.Minimum To ProgressBar1.Maximum ProgressBar1.Value = value Label1.Text = value.ToString My.Application.DoEvents() Next End Sub

---

À la fin de la boucle, Label1 affiche bien la valeur maximale.
La propriété Value de ProgressBar1 est donc aussi égale à ProgressBar1.Maximum.
Pourtant ProgressBar1 continue son remplissage, semblant désynchronisé graphiquement avec sa propriété Value, malgré DoEvents.
Comment puis-je faire pour synchroniser le remplissage du ProgressBar avec la valeur instantanée de sa propriété Value.

Merci d'avance...