Progressbar, который увеличивается после каждого запроса, почему-то запаздывает

        ' инициализация pb
        ProgressBar1.Minimum = 0 ' начальное значние
        ProgressBar1.Maximum = DT.Rows.Count ' максимальное значение равно выгружаемым данным
        ProgressBar1.Step = 1 ' шаг
        ProgressBar1.Value = 0
 
For Each row As DataRow In DT.Rows ' идем по массиву и выполняем запросы
 
' подготовка и отправка данных к серверу
 
 Dim postData As String = "id=" & MainForm.clinicN & "&code=" & MainForm.CPU ' Данные для POST запроса
            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
            Dim request As WebRequest = WebRequest.Create(MainForm.Server & MainForm.xmlSettings.Element("Settings").Element("script").Value) ' POST запрос
 
            With request
                .Method = "POST"
                .ContentType = "application/x-www-form-urlencoded"
                .ContentLength = byteArray.Length
            End With
 
            Dim dataStream As IO.Stream = request.GetRequestStream()
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()
зультатами 
 ' получение данных от сервера
            Dim response As WebResponse = request.GetResponse()
            dataStream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()
            reader.Close()
            dataStream.Close()
            response.Close()
 
' далее что-то делаем с результатами ответа сервера
ProgressBar1.Value += 1 ' прибавляем значение к pb
 
 
 
Next
 
 
                Button1.Visible = True ' когда все выгрузилось показываем кнопку закрыть

' Me.ControlBox = False ' скрываем кнопку закрыть

        For Each row As DataRow In DT.Rows ' идем по каждому не выгруженному животному
            Dim Th As New System.Threading.Thread(AddressOf upload)
            Th.Start(row)
        Next

 Dim s As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' инициализация pb
        ProgressBar1.Minimum = 0 ' начальное значние
        ProgressBar1.Maximum = DT.Rows.Count ' максимальное значение равно выгружаемым данным
        ProgressBar1.Step = 1 ' шаг
        ProgressBar1.Value = 0
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.WorkerSupportsCancellation = True
        If BackgroundWorker1.IsBusy <> True Then 
            'Запускаем асинхронную операцию
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
        For Each row As DataRow In DT.Rows ' идем по массиву и выполняем запросы
            If (worker.CancellationPending = True) Then 'Если нажата кнопка "Отмена"
                e.Cancel = True
                Exit For
            Else
                ' подготовка и отправка данных к серверу
 
                Dim postData As String = "id=" & Mainform.clinicN & "&code=" & Mainform.CPU ' Данные для POST запроса
                Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
                Dim request As WebRequest = WebRequest.Create(Mainform.Server & Mainform.xmlSettings.Element("Settings").Element("script").Value) ' POST запрос
 
                With request
                    .Method = "POST"
                    .ContentType = "application/x-www-form-urlencoded"
                    .ContentLength = byteArray.Length
                End With
 
                Dim dataStream As IO.Stream = request.GetRequestStream()
                dataStream.Write(byteArray, 0, byteArray.Length)
                dataStream.Close()
 
                ' получение данных от сервера
                Dim response As WebResponse = request.GetResponse()
                dataStream = response.GetResponseStream()
                Dim reader As New StreamReader(dataStream)
                Dim responseFromServer As String = reader.ReadToEnd()
                reader.Close()
                dataStream.Close()
                response.Close()
                s += 1
                worker.ReportProgress(s)
            End If
        Next
    End Sub
 
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = (e.ProgressPercentage) ' изменяем значение pb
    End Sub
 
    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Button1.Visible = True ' когда все выгрузилось показываем кнопку закрыть
    End Sub
 
    Private Sub Отмена_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Отмена.Click
        If BackgroundWorker1.WorkerSupportsCancellation = True Then
            'Отмена асинхронной операции
            BackgroundWorker1.CancelAsync()
        End If
    End Sub

 Dim postData As String = "id=" & MainForm.clinicN & "&code=" & MainForm.CPU & "&chip=" & row.Item("chip") & "&mark=" & row.Item("mark") & "&nick=" & row.Item("nick") & "&kind=" & row.Item("kind") & "&breed=" & row.Item("breed") & "&sex=" & row.Item("sex") & "&birthday=" & row.Item("birthday") & "&color=" & row.Item("color") & "&desc=" & row.Item("desc") & "&o_name=" & row.Item("o_name") & "&o_address=" & row.Item("o_address") & "&o_passport=" & row.Item("o_passport") & "&o_email=" & row.Item("o_email") & "&o_phone=" & row.Item("o_phone") & "&o_desc=" & row.Item("o_desc") & "&o_before=" & row.Item("o_before") & "&date_local=" & row.Item("date_local") ' Данные для POST запроса