RaiseEvent NewINfo(e.ProgressPercentage, e.UserState)

        Select Case InfoNr
            Case 2 
                lbInfo1.Text = InfoText
            Case 3 
                lbInfo2.Text = InfoText
' usw...
        End Select

    Private Sub worker_DoWork(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles WORKER.DoWork
 
        Dim I As Long
        Dim j As Long
 
        WORKER.ReportProgress(13, Now & " - " & "Start")
 
        For I = 1 To 100
 
            WORKER.ReportProgress(4, I & "%")
 
            Dim PI As Double = 0
            For j = 1 To 50
                PI = 0
                For ii As Integer = 0 To 100
                    PI += 1 / Math.Pow(16, ii) * (4 / ((8 * ii) + 1) - 2 / ((8 _
                      * ii) + 4) - 1 / ((8 * ii) + 5) - 1 / ((8 * ii) + 6))
                Next
 
                WORKER.ReportProgress(12, "Pi" & j & ": " & PI)
            Next
 
            If WORKER.CancellationPending = True Then Exit For
 
        Next
 
        WORKER.ReportProgress(13, Now & " - " & "ENDE")
 
    End Sub