Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button6.Click
        Dim p As Point
        p = StatusBar1.Location
 
        ' neue ProgressBar
        Dim pbar As New ProgressBar
 
        ' Größe festlegen
        pbar.Size = New Size(200, Me.StatusBar1.Height - 6)
 
        ' linken Rand festlegen
        Dim pbarLeft As Integer
        pbarLeft = p.X + Me.StatusBar1.Panels(0).Width + _
          Me.StatusBar1.Panels(1).Width
 
        ' Position festlegen
        pbar.Location = New Point(pbarLeft, 4)
        pbar.Step = 1
 
        ' ProgressBar der StatusBar hinzufügen
        Me.StatusBar1.Controls.Add(pbar)
 
        ' Berechnung ausführen
        Dim i As Integer
        For i = 1 To 100
            Threading.Thread.Sleep(1)
            pbar.PerformStep()
        Next
 
        ' ProgressBar wieder entfernen
        Me.StatusBar1.Controls.Remove(pbar)
 
        Bass.BASS_StreamFree(stream)
        stream = Bass.BASS_Start
        Bass.BASS_ChannelPlay(stream, False)
    End Sub