Petit soucis avec ProgressBar

Bonjour à tous,

J'ai un petit soucis.

J'ai fait un form de 150*300 pixel avec un label "Please wait..." et un progressBar.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub OpenProgressBar() ProgressBarForm.Show() ProgressBarForm.Location = New System.Drawing.Point(CInt(Screen.PrimaryScreen.WorkingArea.Width / 2) - 150, CInt(Screen.PrimaryScreen.WorkingArea.Height / 2) - 25) End Sub   Private Sub FillUpProgressBar(ByVal value As Double)   If value >= 1 Then ProgressBarForm.Hide() End If   ProgressBarForm.ProgressBarYMD.Value = CInt(value * 100)   End Sub

---

Dans le cas présent (mon premier emploi) le méthode tourne en 3 seconde (calcule et affiche chart).

Le form apparait, le label n'en a pas le temps...la progressBar atteind 20% puis le form disparait...

Je précise que si j'ôte la méthode .Hide, le form reste affiché et la progressbar va au bout. Mais le label met quand même un certain temps à s'afficher.

Quelqu'un a il une suggestion?

Je me suis amusé avec un timer...

Le form reste affiche jusqu'au bout, mais le label "Please wait..." ne s'affiche qu'après un certain laps de temps. :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub OpenProgressBar() ProgressBarForm.Show() ProgressBarForm.Location = New System.Drawing.Point(CInt(Screen.PrimaryScreen.WorkingArea.Width / 2) - 150, CInt(Screen.PrimaryScreen.WorkingArea.Height / 2) - 25) End Sub   Private Sub FillUpProgressBar(ByVal value As Double)   If value >= 1 Then Me.Timer1.Interval = 250 ticCount = 0 Me.Timer1.Enabled = True End If   ProgressBarForm.ProgressBarYMD.Value = CInt(value * 100)   End Sub   Private Sub CloseProgressBar() Handles Timer1.Tick   ticCount += 1 If ticCount = 2 Then Me.Timer1.Enabled = False ProgressBarForm.Hide() End If   End Sub   Private ticCount As Integer

---