主题：菜单设计练习时进度条无反应

以下内容为程序代码:

1 Dim vl As Double
2 Dim pb As RibbonMenu.ProgressBar
3 pb = RibbonTabs("实战演练二").Groups("任务十一").Items("进度条1")
4 For i As Integer = 1 To 10000
5 vl = i / 3
6 If i Mod 100 = 0 Then
7 pb.Value = i / 10000 * 100
8 Application.DoEvents
9 End If
10 Next
11