مشكل در BackgroundWorker

[maxvel]

سلام

من اين كدهارو به برنامه اضافه كردم



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync()
End Sub

Sub Doit()
Dim a As Integer = 0
Dim prog As Double = 100 / 5
Dim current As Integer = 0
For i As Integer = 0 To 5
System.Threading.Thread.Sleep(1000)
a += 1
BackgroundWorker1.ReportProgress(current)
current += prog
Next
End Sub

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

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
MsgBox("END...")
End Sub

تو اين قسمت كد مشكل ميگيره


BackgroundWorker1.ReportProgress(current)

كمك لازم دارم

اگه به عنوان سورس كد باشه كه عاليه

[tstsst]

سلام
تو پراپرتیس بکگراندورکر ورکرریپورتس پروگرس رو ترو کن
Backgroundworker1 ~> WorkerReportsProgress ~> True