Public Class frmTest
 
    'Progressbar1 und Timer1 von der Toolbox auf die Form ziehen
 
    Dim timervalue As Integer 'Fortschritt wird im Timer-Event erzeugt
 
 
 
    Private Sub frmTest_Load(sender As System.Object, _
              e As System.EventArgs) Handles MyBase.Load
 
        'Initialisierungen
 
        Timer1.Interval = 1000 'eine Sekunde
        Timer1.Enabled = True
 
        timervalue = ProgressBar1.Minimum
 
    End Sub
 
 
 
    Private Sub Timer1_Tick(sender As System.Object, _
           e As System.EventArgs) Handles Timer1.Tick
 
        timervalue += 5 'Fortschritt
 
        With ProgressBar1
            If timervalue <= .Maximum Then
                'Fortschritt notieren
                .Value = timervalue
            ElseIf timervalue > 1.1 * ProgressBar1.Maximum Then
                'nach einer Wartefrist den Fortschritt neu starten
                .Value = .Minimum
                timervalue = 0
            End If
        End With
 
    End Sub
 
End Class