关于状态栏进度条显示问题

专家老师好！　我在软件导航栏控件中，插入一个目录树，目录树的NodeMouseDoubleClick事件中写入如下代码，用于调用打开各个窗口，由于窗口所依附的源表结构太大，调用过程很慢，经测试需要1.6分钟，

所以在状态栏中想加个进度条以示正在调用程序，但是在程序调用过程中进度条一直显示10％，直到窗口完全打开关闭进度条，在整个调用过程中进度条没有显示进度的变化，不匹配

请老师更改一下代码，让进度条显示进度变化过程，当进度条显示到100％时窗口正好打开，谢谢老师！

Select Case e.Node.Text

    Case "相同截面--铝板统计表" 

        StatusBar.ProgressBar.Visible = True

        StatusBar.ProgressBar.Value = 0

        StatusBar.Message1 = "正在调用功能组模块 请耐心等候"

        Dim val As Integer = 0

        For i As Integer = 1 To 10

            val = val + 10

            StatusBar.ProgressBar.Value = val

            StatusBar.Message2 = val & "%"

            StatusBar.Refresh()

            MainTable = Tables("幕墙面材汇总表")

            Forms("相同截面--铝板--统计表").show() \'打开窗口     

        Next

        StatusBar.ProgressBar.Visible = False

        StatusBar.Reset()

Case "相同截面--铝塑板订货表"

　　..........

Case "石材订货表"

　　..........

End Select

请老师帮忙一下，感谢老师，恭祝敬祝老师身体健康，工作顺利  万事如意。小年快乐