我的数据处理过程中设计了一个无边框的独立窗口，里面有一个进度条和一个Label，Label用于显示正在进行的步骤，如下图

此主题相关图片如下：form.jpg

窗口中Label1控件我给了一个初始值“Text”

然后程序代码中有一段是打开这个窗口，并且对进度条赋值，以及给Label.Text赋予文本：

    Forms("GoodsImporting").Open()
    Dim pb As WinForm.ProgressBar = Forms("GoodsImporting").Controls("ProgressBar1")
    Dim Lab As WinForm.Label = Forms("GoodsImporting").Controls("Label1")
    Lab.Text = "Verifying imported goods..."                        \'我需要让Label显示这句话，但是程序运行的时候显示的依然是初始值"Text"
    pb.Maximum = Sheet.Rows.Count - 1
    pb.Minimum = 0
    pb.Value = 0

请问老师，问题出在什么地方呢？