VB.net stopping a backgroundworker

VB.net stopping a backgroundworker

I want to create a button that could stop my background worker and end all
the process it is working on.
Here is my sample backgroundworker code:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Try
If BackgroundWorker1.IsBusy <> True Then
BackgroundWorker1.RunWorkerAsync()
End If
Catch ex As Exception
End Try
End Sub
Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As
System.ComponentModel.DoWorkEventArgs) Handles
BackgroundWorker1.DoWork
Dim counter As Integer = 1
Do
ListBox1.Items.Add(counter)
ProgressBar1.Value = ((counter - 1) / limit) * 100
counter = counter + 1
Loop While(counter <= 999999999999999999)
End Sub
Private Sub BackgroundWorker1_ProgressChanged(sender As
System.Object, e As
System.ComponentModel.ProgressChangedEventArgs) Handles
BackgroundWorker1.ProgressChanged
Try
Catch ex As Exception
End Try
End Sub
Private Sub BackgroundWorker1_Completed(sender As System.Object, e
As System.ComponentModel.RunWorkerCompletedEventArgs) Handles
BackgroundWorker1.RunWorkerCompleted
Try
Catch ex As Exception
End Try
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls =
False
End Sub
I want to reset the loop and return the Progress Bar to 0% when i stop the
backgroundworker.
Is this possible?