软件加载进度条

想学习类似加载TP那样显示的同学可以参考下。
窗口1.标签1.标题 ＝ “启动ing...”
.计次循环首 (10, )
妹子 ＝ 妹子 ＋ 10
进度条_模拟 (窗口1.画板1, 100, 妹子, #褐绿, “TP载入中... ”, , 真)
延迟 (100)
.计次循环尾 ()
进度条_模拟 (窗口1.画板1, 100, 100, #天蓝, “启动完成 ”, , 真)
窗口1.标签1.标题 ＝ “启动成功”