ProgressBar

In einem Programm wird ein Ladebalken angezeigt die Laufzeit wird durch einen Timer realisiert.

der Code sieht folgendermaßen aus:

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub



    Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Timer1.Enabled = True

    End Sub



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

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1.Enabled = False
        Timer1.Start()
1000:   If Timer1.Tag < 10 Then
            ProgressBar1.Value = Timer1.Tag
        End If
        If Timer1.Tag < 20 Then
            ProgressBar1.Value = Timer1.Tag
        End If
        If Timer1.Tag < 40 Then
            ProgressBar1.Value = Timer1.Tag
        End If
        If Timer1.Tag < 50 Then
            ProgressBar1.Value = Timer1.Tag
        End If
        If Timer1.Tag < 60 Then
            ProgressBar1.Value = Timer1.Tag
        End If
        If Timer1.Tag < 90 Then
            ProgressBar1.Value = Timer1.Tag
        End If
        If Timer1.Tag >= 100 Then
            Button1.Enabled = True
            ProgressBar1.Value = Timer1.Tag
            Timer1.Enabled = False
        End If
        GoTo 1000
    End Sub

Der anfang funktioniert dh der BAlken springt bis 10 also die erste If schleife wird ausgeführt.
dann bleibt es stehen und fährt nicht fort, Fehlermeldungen entstehen jedoch keine.

Wo liegt denn da mein Denkfehler?

MfG Tino