มีปัญหาเรื่องการใช้ timer Visual ค้างเวลากำลังรันอยู่ แก้ยังไงคับ VBA

BackgroundWorker bgWorker = new BackgroundWorker();

private void btnStart_Click(object sender, EventArgs e)
{
    bgWorker.DoWork += new DoWorkEventHandler(bgWorker_DoWork);
    bgWorker.RunWorkerCompleted += new RunWorkerCompletedEventHandler(bgWorker_RunWorkerCompleted);
    bgWorker.ProgressChanged += new ProgressChangedEventHandler(bgWorker_ProgressChanged);

    bgWorker.RunWorkerAsync();
}

private void btnStop_Click(object sender, EventArgs e)
{
    bgWorker.CancelAsync();
}

private void bgWorker_DoWork(object sender, DoWorkEventArgs e)
{
    // Do Work
}

// This event handler updates the progress.
private void bgWorker_ProgressChanged(object sender, ProgressChangedEventArgs e)
{
    // Update Progress Status to UI
}

// This event handler deals with the results of the background operation.
private void bgWorker_RunWorkerCompleted(object sender, RunWorkerCompletedEventArgs e)
{
    // Finish
}

Private WithEvents bgWorker As New BackgroundWorker

Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
    bgWorker.RunWorkerAsync()
End Sub

Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
    bgWorker.CancelAsync()
End Sub

Private Sub bgWorker_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgWorker.DoWork
    ' Do Work
End Sub

Private Sub bgWorker_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bgWorker.ProgressChanged
    ' Update Progress Status to UI
End Sub

Private Sub bgWorker_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgWorker.RunWorkerCompleted
    ' Finish
End Sub