比如要显示“欢迎张三总经理莅临本公司指导工作！”
新建一个WINCC项目welcome，新建一个8位字符的内部变量。新建一个VBS动作脚本，周期1s，动作脚本如下：
Option Explicit
Function action
Dim s,txt
Set txt=HMIRuntime.Tags("txt")
s= Second(Now()) Mod 31
Select Case s
Case 0
txt.write ""
Case 1
txt.write " 欢"
Case 2
txt.write " 欢迎"
Case 3
txt.write " 欢迎张"
Case 4
txt.write " 欢迎张三"
Case 5
txt.write " 欢迎张三总"
Case 6
txt.write " 欢迎张三总经"
Case 7
txt.write " 欢迎张三总经理"
Case 8
txt.write " 欢迎张三总经理莅"
Case 9
txt.write " 欢迎张三总经理莅临"
Case 10
txt.write " 欢迎张三总经理莅临本"
Case 11
txt.write " 欢迎张三总经理莅临本公"
Case 12
txt.write " 欢迎张三总经理莅临本公司"
Case 13
txt.write " 欢迎张三总经理莅临本公司指"
Case 14
txt.write " 欢迎张三总经理莅临本公司指导"
Case 15
txt.write " 欢迎张三总经理莅临本公司指导工"
Case 16
txt.write " 欢迎张三总经理莅临本公司指导工作"
Case 17
txt.write "欢迎张三总经理莅临本公司指导工作！"
Case 18
txt.write "迎张三总经理莅临本公司指导工作！ "
Case 19
txt.write "张三总经理莅临本公司指导工作！ "
Case 20
txt.write "三总经理莅临本公司指导工作！ "
Case 21
txt.write "经理莅临本公司指导工作！ "
Case 22
txt.write "理莅临本公司指导工作！ "
Case 23
txt.write "莅临本公司指导工作！ "
Case 24
txt.write "临本公司指导工作！ "
Case 25
txt.write "本公司指导工作！ "
Case 26
txt.write "公司指导工作！ "
Case 27
txt.write "司指导工作！ "
Case 28
txt.write "指导工作！ "
Case 29
txt.write "导工作！ "
Case 29
txt.write "工作！ "
Case 30
txt.write "作！ "
Case 31
txt.write "！ "
End Select
End Function
新建一个画面welcome，刷新率1s，放置一个静态文本，静态文本的背景色边框色设置为透明，取消全局颜色方案，静态文本的文字绑定内部变量txt。计算机属性中启用全局脚本，初始化面设定为welcom，页面全屏。
保存运行项目，就可以看到效果了。这里面实现了跑马灯的效果，1秒移动一个汉字，使用了系统时钟的秒数和字数的余数关系来控制显示内容，只是做一个样子，还有继续优化的必要。