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

单击开始按钮，进度条将显示任务完成进度：