Visual Basic

items.WithProgressReporting(Function(progress)
worker.ReportProgress(progress)).ForEach(Function(item) Thread.Sleep(10)) ' simulate some real work

items.WithProgressReporting(Function(progress) _
worker.ReportProgress(progress)).ToList.ForEach(Function(item) Thread.Sleep(10)) ' simulate some real work

items.WithProgressReporting(Sub(progress) worker.ReportProgress(progress)).ForEach(Sub(item) Thread.Sleep(10))

Class Program
    Shared worker As BackgroundWorker
    Public Shared Sub Main() 'ByVal args As String())
        worker = New BackgroundWorker()
        worker.WorkerReportsProgress = True
        AddHandler worker.DoWork, AddressOf DoWork
        AddHandler worker.ProgressChanged, AddressOf ProgressChanged
        worker.RunWorkerAsync()
        Console.Read()
    End Sub

    Private Shared Sub DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
        Dim items = Enumerable.Range(1, 1000)
        items.WithProgressReporting(AddressOf ReportProgress).ForEach(AddressOf DoSleep)
    End Sub
    Private Shared Sub ReportProgress(ByVal progress As Integer)
        worker.ReportProgress(progress)
    End Sub
    Private Shared Sub DoSleep(ByVal item As Integer)
        Thread.Sleep(10)
    End Sub
    Private Shared Sub ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs)
        Console.SetCursorPosition(1, 0)
        Console.Write(e.ProgressPercentage)
    End Sub
End Class

items.WithProgressReporting(Sub(progress) worker.ReportProgress(progress)).ForEach(Sub(item) Thread.Sleep(10))

Dim items As IEnumerable(Of Integer) = Enumerable.Range(1, 1000)

Michael Schäuble wrote:

I had to change the definition of 'items'

ForEach(Sub(item) Thread.Sleep(10))

items.WithProgressReporting(Sub(progress) worker.ReportProgress(progress)).ForEach(Sub(item) Thread.Sleep(10))

Nitin Varshneya wrote:

But in my case it is prerequisite to show word file in a control like webBrowser

Sub test()
  Dim word As Object, Doc as object
  Set word = CreateObject("Word.application")
  word.Visible = True
  Set doc = word.documents.Add
End Sub