[سؤال] اريد كود تشغيل وايقاف بزرين

كود :
Dim i As Integer = 0, j As Integer = 0, Puse As Boolean = False

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

    Puse = False

    For i = j To 20000

        UpdateLabel(i)

        If Puse = True Then Exit For

    Next

End Sub



Private Delegate Sub UpdateLabelInvoker(ByVal text As String)

Private Sub UpdateLabel(ByVal text As String)

    If Me.Label1.InvokeRequired Then

        Me.Label1.Invoke(New UpdateLabelInvoker(AddressOf UpdateLabel), text)

    Else

        Me.Label1.Text = text

    End If



End Sub





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

    Button1.Text = "Do >>"

    Button2.Text = "Puse"

End Sub



Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    If BackgroundWorker1.IsBusy <> True Then

        BackgroundWorker1.RunWorkerAsync()

    End If

End Sub



Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Puse = True

    j = i

End Sub