主题：进度条的终止问题

Dim i As Integer = 1

Do While i <= 100

    StatusBar.ProgressBar.Visible =True

    StatusBar.Message1= "正在统计"

    StatusBar.ProgressBar.Value = i

   ‘ StatusBar.Message2= i & "%"

    Application.DoEvents

    i = i + 1

If i = 100 Then i = 1

Loop

如果用上面这段代码，会让任务栏进度条一直进行进度滚动，但这个功能是实现了，那么问题来了

按说用

StatusBar.Reset()

可以强制任务栏滚动条初始化，但实测此时关闭不了