PROBLEMA COM TASK E THREAD

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t1 As New Threading.Thread(AddressOf Count)

        t1.IsBackground = True

        t1.Start(100)
    End Sub
    Private Sub Count(ByVal Max As Object)
        If TypeOf Max Is Integer Then
            Count(CInt(Max))
        End If
    End Sub


[txt-color=#e80000]    Private Sub SetLabelText(ByVal text As Integer)
        If ProgressBar1.InvokeRequired Then
            ProgressBar1.Invoke(New Action(Of Integer)(AddressOf SetLabelText), text)
        Else
            ProgressBar1.Value = text
        End If
    End Sub[/txt-color]

    Private Sub Count(ByVal Max As Integer)
        For i = 1 To Max
            SetLabelText(i)
            Threading.Thread.Sleep(200)
        Next

    End Sub

    Private Sub ProcessarBanco(obj As IEnumerable(Of DataGridViewRow), sTipo As String, mascaraTGE As Integer, inativarGeral As Boolean)
        Dim oTGE As New clsSamTge()

        Select Case sTipo
            Case [Ô]N[Ô] [ô]Novos
                Dim lista = obj _
                    .Select(Function(s) New clsPrecosTuss With {
                        .Tuss_3_0 = s.Cells([Ô]Tuss_3_0[Ô]).Value,
                        .Tuss_2_0 = s.Cells([Ô]Tuss_2_0[Ô]).Value,
                        .Descricao = s.Cells([Ô]Descricao[Ô]).Value,
                        .Generico = s.Cells([Ô]Generico[Ô]).Value,
                        .Fracionamento = s.Cells([Ô]Fracionamento[Ô]).Value,
                        .Fabricante = s.Cells([Ô]Fabricante[Ô]).Value,
                        .Cnpj_fabricante = s.Cells([Ô]Cnpj_fabricante[Ô]).Value,
                        .Registro_anvisa = s.Cells([Ô]Registro_anvisa[Ô]).Value,
                        .Validade_anvisa = s.Cells([Ô]Validade_anvisa[Ô]).Value,
                        .Importar = s.Cells([Ô]Importar[Ô]).Value,
                        .Ativo = s.Cells([Ô]Ativo[Ô]).Value,
                        .Codigo_referencia = s.Cells([Ô]Codigo_referencia[Ô]).Value,
                        .Brasindice = s.Cells([Ô]Brasindice[Ô]).Value,
                        .Principio_ativo = s.Cells([Ô]Principio_ativo[Ô]).Value,
                        .Qtde_fracionada = s.Cells([Ô]Qtde_fracionada[Ô]).Value,
                        .Fim_vigencia = s.Cells([Ô]Fim_vigencia[Ô]).Value
                    })

                For Each row In lista
                    oTGE.InserirTGE(row, DataFechamento.Value, mascaraTGE, inativarGeral)
                    contagem += 1
                Next
            Case [Ô]E[Ô] [ô]Existentes
                Dim lista = obj _
                    .Select(Function(s) New clsPrecosTuss With {
                        .Tuss_3_0 = s.Cells([Ô]Tuss_3_0[Ô]).Value,
                        .Tuss_2_0 = s.Cells([Ô]Tuss_2_0[Ô]).Value,
                        .Descricao = s.Cells([Ô]Descricao[Ô]).Value,
                        .Generico = s.Cells([Ô]Generico[Ô]).Value,
                        .Fracionamento = s.Cells([Ô]Fracionamento[Ô]).Value,
                        .Fabricante = s.Cells([Ô]Fabricante[Ô]).Value,
                        .Cnpj_fabricante = s.Cells([Ô]Cnpj_fabricante[Ô]).Value,
                        .Registro_anvisa = s.Cells([Ô]Registro_anvisa[Ô]).Value,
                        .Validade_anvisa = s.Cells([Ô]Validade_anvisa[Ô]).Value,
                        .Importar = s.Cells([Ô]Importar[Ô]).Value,
                        .Ativo = s.Cells([Ô]Ativo[Ô]).Value,
                        .Codigo_referencia = s.Cells([Ô]Codigo_referencia[Ô]).Value,
                        .Brasindice = s.Cells([Ô]Brasindice[Ô]).Value,
                        .Principio_ativo = s.Cells([Ô]Principio_ativo[Ô]).Value,
                        .Qtde_fracionada = s.Cells([Ô]Qtde_fracionada[Ô]).Value,
                        .Fim_vigencia = s.Cells([Ô]Fim_vigencia[Ô]).Value
                    })

                For Each row In lista
                    oTGE.AtivarTGE(row.Tuss_3_0, row.Fim_vigencia, mascaraTGE)
                    contagem += 1
                Next
            Case [Ô]I[Ô] [ô]Inativos
                For Each row In obj
                    oTGE.AtivarTGE(row.Cells([Ô]tuss_3_0[Ô]).Value, row.Cells([Ô]fim_vigencia[Ô]).Value, mascaraTGE)
                    contagem += 1
                Next
            Case [Ô]IN[Ô] [ô]Inativar
                Dim c As Integer = Convert.ToInt32(Math.Ceiling(obj.Count() / 500))
                For xx = 0 To c - 1
                    Dim oInativar = obj.Skip(xx * 900).Take(900)
                    For Each row In oInativar
                        oTGE.InativarTGE(row.Cells([Ô]tuss_3_0[Ô]).Value, DataFechamento.Value.Date, mascaraTGE, inativarGeral)
                        contagem += 1
                    Next
                    GC.Collect()
                Next xx
        End Select
    End Sub

[txt-color=#e80000]    Private Sub UpdateProgres(ByVal _value As Integer)
            If pbProgresso.InvokeRequired Then
                pbProgresso.Invoke(New Action(Of Integer)(AddressOf UpdateProgres), _value) [ô]SISTEMA TRAVA AQUI E NÃO FAZ MAIS NADA NA THREAD
            Else
                pbProgresso.Value = _value
            End If
    End Sub[/txt-color]

    Private Sub btnProcessar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcessar.Click
        If MessageBox.Show([Ô]Data para Inativar Materiais/Medicamentos será [Ô] & DataFechamento.Value.ToString([Ô]dd/MM/yyyy[Ô]) & [Ô] confima a integração?[Ô], [Ô]Confirmar[Ô], MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.Yes Then
            Dim lsTask As New List(Of Task)
            Dim tsk As Task
            Dim mascara As Integer = Integer.Parse(cboMascaraTGE.SelectedValue)
            Dim inativarGeral As Boolean = chkSomenteItensFimVigencia.Checked

            lblFraseAguarde.Text = [Ô]Aguarde... Processando as informações e gravando os dados.[Ô]

            Dim Existentes = dgvTuss.Rows.OfType(Of DataGridViewRow).Where(Function(w) w.Cells.Item([Ô]corLegenda[Ô]).Value = [Ô]E[Ô] And Not String.IsNullOrEmpty(w.Cells.Item([Ô]fim_vigencia[Ô]).Value))
            Dim Novos = dgvTuss.Rows.OfType(Of DataGridViewRow).Where(Function(w) w.Cells.Item([Ô]corLegenda[Ô]).Value = [Ô]N[Ô])
            Dim Inativos = dgvTuss.Rows.OfType(Of DataGridViewRow).Where(Function(w) w.Cells.Item([Ô]corLegenda[Ô]).Value = [Ô]I[Ô] And String.IsNullOrEmpty(w.Cells([Ô]fim_vigencia[Ô]).Value))
            Dim Inativar = dgvTuss.Rows.OfType(Of DataGridViewRow).Where(Function(w) w.Cells.Item([Ô]corLegenda[Ô]).Value = [Ô]IN[Ô])

            pbProgresso.Maximum = (Existentes.Count() + Novos.Count() + Inativos.Count() + Inativar.Count())
            pbProgresso.Value = 0
            contagem = 0
            pnlAguarde.Visible = True

            Application.DoEvents()

[txt-color=#e80000]            Dim trdProgress As New Threading.Thread(Sub()
                                                        While contagem <= pbProgresso.Maximum
                                                            UpdateProgres(contagem)
                                                            If (contagem Mod 1000) = 0 Then Application.DoEvents()
                                                            Threading.Thread.Sleep(50)
                                                        End While
                                                    End Sub)
            trdProgress.IsBackground = True
            trdProgress.Start()[/txt-color]



            [ô]tsk = New Task(Function() Processar([Ô]N[Ô], mascara,inativarGeral))
            [ô]tsk.Start()
            [ô]lsTask.Add(tsk)
            [ô]Threading.Thread.Sleep(3000)

            tsk = New Task(Sub() ProcessarBanco(Existentes, [Ô]E[Ô], mascara, inativarGeral))
            tsk.Start()
            lsTask.Add(tsk)
            Threading.Thread.Sleep(3000)

            [ô]tsk = New Task(Sub() ProcessarBanco(Inativos, [Ô]I[Ô], mascara, inativarGeral))
            [ô]tsk.Start()
            [ô]lsTask.Add(tsk)
            [ô]Threading.Thread.Sleep(3000)

            [ô]tsk = New Task(Function() Processar([Ô]IN[Ô], mascara,inativarGeral))
            [ô]tsk.Start()
            [ô]lsTask.Add(tsk)
            [ô]Threading.Thread.Sleep(3000)

            Task.WaitAll(lsTask.ToArray())

            If trdProgress.IsAlive Then trdProgress.Abort()

            MessageBox.Show([Ô]Processo Concluido[Ô])
            btnLimpar.Enabled = True
            pnlAguarde.Visible = False
        End If

    End Sub