主题：[求助]关闭项目前备份项目窗口弹出很慢是什么原因？

Dim st As Date = Date.Now

e.Form.Controls("Label1").Text = "正在备份,请稍后..."

Application.DoEvents()

Syscmd.Project.Save()

Syscmd.Project.Backup("d:\备份\Backup", True)

e.Form.Controls("Label1").Text = "备份完毕,耗时: " & (Date.Now - st).TotalSeconds & "秒"

Forms("备份提示窗口").Close

但是窗口关闭按钮按下后，有时备份提示窗口弹出比较快，有时会延迟20-40秒才会出现。这是什么原因？ 是正常现象吗？

还有这段代码执行结果，不出现“备份完毕，耗时：...” 这段文字。