进度条不按顺序执行

Question

我正在做一些解密，我有两个进度条，它们是在解密时运行的，第二个进度条是在第一个进度条已满后进行的。但是，他们似乎都在同一时间， a picture to show the action:
此外，当我添加消息框以检查每次迭代中的进度条时，它们似乎工作正常，a picture for that click here.

以下是我用于在进度条中分配值的代码

Dim progress As integer
//Loop starts
//progress value added

     If progress > 0 And progress < 51 Then
          ProgressBar1.Value = progress
     ElseIf progress > 50 And progress < 101 Then
          ProgressBar2.Value = progress - 50
     End If

//Loop Ends

我不确定为什么它一起执行，或者似乎一起执行。

我有什么方法可以解决这个问题吗？