یه Background Worker روی فرم قرار بدید و خاصیت WorkerReportsProgress را روی true قرار دهید

Public Class Form1



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

        'در این قسمت اعلام میکنم بکگراند ورکر شروع به کار کند

        BackgroundWorker1.RunWorkerAsync()

    End Sub



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

        'فرض رو در این میگیریم که شما 100 رکورد را میخواهید ویرایش کنید

        Const count As Integer = 100

        For i = 0 To count

            'در اینجا عملیات مربوط به حذف رو انجام دهید

            'این خط مربوط به تست است و نیاز نیست در کد شما باشد

            Threading.Thread.Sleep(50)

            'اینجا گزارش پیشرفت رو به بکگراند ورکر اعلام کنید

            BackgroundWorker1.ReportProgress(i)

        Next

    End Sub



    Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

        'این قسمت مشخص میکنید با هر مقدار پیشرفت در عملیات چه اتفاقی بیفتد

        'من اعلام کرده ام پروگرس بار رو یک واحد جلو ببرد

        Dim percent As Int32 = e.ProgressPercentage

        ProgressBar1.Value = percent

    End Sub



    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted

        'عملیات مربوط به پایان کار رو انجا اعلام کنید

        MessageBox.Show("Done")

    End Sub

End Class