[Taha Okla]

-- افتح مشروع جديد وأضف عليه الأدوات التالية :
1 - BackgroundWorker1
2 - Label1
3 - Button1
4 - Button2

وانسخ الكود التالي لمشروعك :

كود :

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

- شغل البرنامج وجربه. 
- لاحظ كيف يعمل الكود ...

طور الكود ليناسب عملك ..