Public Sub ProgressVonBis(ByVal bis As Integer)
        Try
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = bis
            ProgressBar1.Step = 1
            Dim x As Integer
            For x = 0 To bis
                ProgressBar1.PerformStep()
                ProgressBar1.Refresh()
                System.Threading.Thread.Sleep(10)
            Next
 
            System.Threading.Thread.Sleep(500)
            ProgressBar1.Value = 0
 
        Catch ex As System.Exception
            MsgBox("Problem:" & vbCrLf & ex.Message)
        End Try
    End Sub

mfg.

Dirk