Imports System.ComponentModel Public Class Form1 Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown BackgroundWorker1.WorkerReportsProgress = True End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click BackgroundWorker1.RunWorkerAsync() End Sub Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork Dim worker As BackgroundWorker = DirectCast(sender, BackgroundWorker) While True Task.Delay(1000).Wait() worker.ReportProgress(Now.Second) End While End Sub Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged Label1.Text = (e.ProgressPercentage.ToString) End Sub End Class