[yousef]

اخي الكريم 
حاول ركز في الكود شوي سهل 

كود :

Public Sub New()
             backgroundWorker1.WorkerReportsProgress = True
       backgroundWorker1.WorkerSupportsCancellation = True
   End Sub

   Private Sub startAsyncButton_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles startAsyncButton.Click
       If backgroundWorker1.IsBusy <> True Then
                      backgroundWorker1.RunWorkerAsync()
       End If
   End Sub

   Private Sub cancelAsyncButton_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles cancelAsyncButton.Click
       If backgroundWorker1.WorkerSupportsCancellation = True Then
           
           backgroundWorker1.CancelAsync()
       End If
   End Sub

   
   Private Sub backgroundWorker1_DoWork(ByVal sender As System.Object, _
   ByVal e As DoWorkEventArgs) Handles backgroundWorker1.DoWork
       Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
       Dim i As Integer

       For i = 1 To 10
           If (worker.CancellationPending = True) Then
               e.Cancel = True
               Exit For
           Else
               ' Perform a time consuming operation and report progress.
               System.Threading.Thread.Sleep(500)
               worker.ReportProgress(i * 10)
           End If
       Next
   End Sub

   
   Private Sub backgroundWorker1_ProgressChanged(ByVal sender As System.Object, _
   ByVal e As ProgressChangedEventArgs) Handles backgroundWorker1.ProgressChanged
       resultLabel.Text = (e.ProgressPercentage.ToString() + "%")
   End Sub

   
   Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, _
   ByVal e As RunWorkerCompletedEventArgs) Handles backgroundWorker1.RunWorkerCompleted
       If e.Cancelled = True Then
           resultLabel.Text = "Canceled!"
       ElseIf e.Error IsNot Nothing Then
           resultLabel.Text = "Error: " & e.Error.Message
       Else
           resultLabel.Text = "Done!"
       End If
   End Sub
End Class

http://msdn.microsoft.com/en-us/library/....110).aspx

[سعود]

اخي الكريم فيه ادوات ليست مسجلة لدي والذي اقدر عليه الان ان ادلك على الحل بدون تجربة وهي كالتالي:
ضع محتوى اجراء _export() في حدث BackgroundWorker1_DoWork واكتب في حدث النقر لزر الامر الكود:     

كود :

  If BackgroundWorker1.IsBusy = False Then
            BackgroundWorker1.RunWorkerAsync()
        End If

وعند الحدث BackgroundWorker1_RunWorkerCompleted اكتب اي رسالة تبين انتهاء النسخ

---

او ربما تحتاج اعادة برمجة الملف dll

[مصطفى]

شكرا لكم اخوتي تم حل المشكلة وشكرا لكل جهودكم الحمد لله