Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
	Handles MyBase.Load

		Me.BackgroundWorker1.WorkerReportsProgress = True
		Me.BackgroundWorker1.RunWorkerAsync()

	End Sub

	Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) _
	Handles BackgroundWorker1.DoWork

		For i As Integer = 0 To 10000
			BackgroundWorker1.ReportProgress(i / 100, i)
			Threading.Thread.Sleep(1)
		Next

	End Sub

	Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) _
	Handles BackgroundWorker1.ProgressChanged

		Me.lblUserState.Text = "Number: " & e.UserState.ToString()
		Me.lblPercent.Text = e.ProgressPercentage.ToString() & "%"

	End Sub