在显示进度的语句后加DoEvents语句就可以了。
如果是循环数比较多，因此不断调用显示进度会占用较多系统时间，可以加入条件判断，进度到一定程度才显示进度，同时注意在条件判断中尽量减少调用控件的属性，而用变量代替，如下：
Private Sub Command1_Click()
n = 10000000
For i = 1 To n
'-----------以下放入你的计算程序，比如累计求和------------
x = x+ i
'-----------有条件显示进度------------
Dim Rt0%, Rt% '上次更新时的进度百分比及当前进度百分比
Rt = i / n * 100
If Rt - Rt0 >= 5 Then '有条件更新进度，减少显示进度对计算速度的影响
Rt0 = Rt
ProgressBar1.Value = Rt
DoEvents
End If
Next i
End Sub
