Update progressbar in PLINQ using extension method

See more:

VB

.NET

plinq

Hello,

I've been struggling for hours now with the proper syntax (in VB) to use an extension method for the above goal which I found here. Whilst the method that contains the call runs without throwing errors, the ProgressBar isn't updated and I can't even identify where the control would be called.

Would someone please be so kind as to correct my syntax?

Thank you!
Michael

What I have tried:

The Extension method:

<Extension>
 Public Function WithProgressReporting(Of T)(sequence As ParallelQuery(Of T), increment As Action) As ParallelQuery(Of T)

     Return sequence.Select(Function(x)
                                If increment IsNot Nothing Then
                                    increment.Invoke
                                End If
                                Return x
                            End Function)
 End Function

The call:

Dim completed As Long = 0
     Dim queryMatchingFiles = From fi In filelist.AsParallel().WithProgressReporting(Function() Interlocked.Increment(completed))
                              Where FilterForLTO(fi) = True
                              Select fi

     Return queryMatchingFiles