VB 2008 progressbar hilfe!

Hallo,
ich finde einfach mein Fehler nicht
Also ich möchte das , wenn die Progressbar läd auf "Label1" angezeigt wird auf wieviel % sie geladen ist. Und wenn die auf 100% geladen ist dann eine MsgBox erscheint indem drauf steht "fertig" .

Mein Problem ist nur das wenn die Progerssbar 100% erreicht hat dann nicht nur eine MsgBox sondern ganz viele hintereinander erscheinen und nicht mehr aufhören.

PHP:

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

        ProgressBar1.Increment(1)
        Label1.Text = ProgressBar1.Value & "%"
        If ProgressBar1.Value = 100 Then
            MsgBox("fertig")
            Timer1.Stop()
        End If


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
End Class



ich hoffe ihr könnt mir helfen! danke

 

Ok Problem selbst gelöst man oh man und ich sitz hier über 40min....
weiss nicht weiter stell die Frage im Forum und finde es sofort selber raus.
naja egal
ich hab einfach
Timer1.stop vor Msgbox("fertig") gesetz
also

PHP:

ProgressBar1.Increment(1)
        Label1.Text = ProgressBar1.Value & "%"
        If ProgressBar1.Value = 100 Then



            Timer1.Stop()       // den  mit  

                                               

            MsgBox("fertig")    // den ausgetauscht! 
  End If
    End Sub