VB Progressbar mit Prozentanzeige

hallo,

ich habe eine Frage:
Wie kann ich für eine Progressbar eine Prozentanzeige schreiben, sodass 
sich die Prozentanzeige ständig erhöht bis 100%.
Mein Code sieht bisher so aus:

Public Class Form1


'----------------------------------------------------------------------
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
'----------------------------------------------------------------------
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 2
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            MsgBox("Fertig")
        End If
    End Sub
End Class

danke schon mal im Vorhinaus

Gruß Moritz