' neue ProgressBar
            Dim pbar As New ProgressBar
 
            ' Größe festlegen
            pbar.Size = New Size(300, Me.StBar1.Height - 4)
 
            ' linken Rand festlegen
            Dim pbarLeft As Integer
            pbarLeft = Me.StBar1.Panels(0).Width
 
            pbar.Top = StBar1.Top + 2
            pbar.Left = pbarLeft + 1
            pbar.Height = StBar1.Height - 3
            pbar.Width = StBar1.Panels(1).Width
            pbar.Step = 2
 
            ' ProgressBar der StatusBar hinzufügen
            Me.StBar1.Controls.Add(pbar)
 
            ' Berechnung ausführen
            Dim i As Integer
            For i = 1 To 100
                Threading.Thread.Sleep(20)
                pbar.PerformStep()
            Next
 
            ' ProgressBar wieder entfernen
            Me.StBar1.Controls.Remove(pbar)

VB@rchiv its the Best