I tried to recreate the problem without luck.
Dim tsk As Task
tsk = Task.Run(Sub()
Me.BeginInvoke(Sub()
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 40
ProgressBar1.Value = 0
End Sub)
For x As Integer = 1 To 60
Threading.Thread.Sleep(20)
Me.BeginInvoke(Sub()
ProgressBar1.Increment(1)
End Sub)
Next
Me.BeginInvoke(Sub()
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 10
ProgressBar1.Value = 0
End Sub)
For x As Integer = 1 To 21
Threading.Thread.Sleep(20)
Me.BeginInvoke(Sub()
ProgressBar1.Increment(1)
End Sub)
Next
End Sub)