MsgBox - nieskończony komunikat

Cześć, mam taki problem z MsgBox, że chcę, aby po tym, jak ProgressBar osiągnie maksymalny pułap, pojawił się komunikat z jakąś informacją. Problem w tym, że komunikat ten pojawia się w nieskończoność. Zamiast wyświetlenia jednego okienka, wyskakują bez przerwy dziesiątki. Jak się z tym uporać?

Cześć, mam taki problem z MsgBox, że chcę, aby po tym, jak ProgressBar osiągnie maksymalny pułap, pojawił się komunikat z jakąś informacją. Problem w tym, że komunikat ten pojawia się w nieskończoność. Zamiast wyświetlenia jednego okienka, wyskakują bez przerwy dziesiątki. Jak się z tym uporać?

Pokaż kod. Pewnie komunikat masz w pętli.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Increment(1)

If ProgressBar1.Value = ProgressBar1.Maximum Then

MsgBox(NumericUpDown1.Value & "eurogąbek dodanych do konta.")

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

ProgressBar1.Increment(1)

If ProgressBar1.Value = ProgressBar1.Maximum Then

Timer1.stop()

MsgBox(NumericUpDown1.Value & "eurogąbek dodanych do konta.")

End If

End Sub

właśnie miałem pisać....

Ewentualnie:

 If ProgressBar1.Value = 99 

timer1.stop() musisz tylko dodać przed msgboxem 

Dzięki. Od razu działa tak, jak należy.