主题：PopMessage问题

bug，只能变通处理。

做一个计划1，写入代码

MyTimers("计划1").Enabled = False
PopMessage("因数计算量大,正在为您生成生报,请耐心等待!","请耐心等待...", PopIconEnum.Infomation,10)

调用的时候，分开调用

MyTimers("计划1").Enabled = True
msgbox(12345)
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览