รบกวนช่วยดูโค้ดให้ทีค่ะเกี่ยวกับ Background Worker ใน Vb โปรแกรมรันได้นะค่ะ แต่แถบ Progress Bar ไม่ขยับค่ะ

  BackgroundWorker1.WorkerReportsProgress = True

'โค้ด เมื่อกดปุ่ม Search ข้อมูลค่ะ
 Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Try
            BackgroundWorker1.RunWorkerAsync()
            If dtpFrom.Value.Date > dtpto.Value.Date Then MsgBox("Invalid Date !!") : Exit Sub

            btnSearch.Enabled = False

            'Process Data
            SearchShift()
            SearchNonWorkingday()
            SearchIndividualNon()

            If dtpFrom.Value.Date = dtpto.Value.Date Then
                If dtpFrom.Value.Date = Date.Now.Date Then
                    SearchByDatenow()
                Else
                    ShowData()
                End If
            Else
                ShowData()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "HRMS", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub

 Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim i As Integer
        For i = 0 To 100 Step +1
            'ถ้ามีการสั่ง Cancel ให้หยุดทันที
            If BackgroundWorker1.CancellationPending = True Then
                e.Cancel = True
                Exit For
            Else
                'รายงานว่ามี prgress เพิ่ม 1 progress
                BackgroundWorker1.ReportProgress(i)
                System.Threading.Thread.Sleep(100)
            End If
        Next

    End Sub

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

        LabelControl1.Text = (e.ProgressPercentage.ToString() + "%")
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        If e.Cancelled = True Then
            LabelControl1.Text = "Canceled!"
            btnSearch.Enabled = True
        ElseIf e.Error IsNot Nothing Then
            LabelControl1.Text = "Error: " & e.Error.Message
            btnSearch.Enabled = True
        Else
            LabelControl1.Text = "Done!"
            btnSearch.Enabled = True
        End If
    End Sub