页面上有一个报警控件，名字为ctrlAlarm,希望打开页面的时候能够把列宽调整好，那么可以在页面打开事件中写入以下代码：
Dim ctrlAlarm,ctrlColumn,i
Set ctrlAlarm=ScreenItems("ctrlAlarm")
Set ctrlColumn=ctrlAlarm.GetMessageColumn(0)
ctrlColumn.width=100 '调整第一列宽度为100
Set ctrlColumn=ctrlAlarm.GetMessageColumn(1)
ctrlColumn.width=200 '调整第二列宽度为200
Set ctrlColumn=ctrlAlarm.GetMessageColumn(2)
ctrlColumn.width=300 '调整第三列宽度为300
Set ctrlColumn=ctrlAlarm.GetMessageColumn(3)
ctrlColumn.width=400 '调整第三列宽度为400
为了展示效果，新建一个内部变量flow,32位浮点型,在全局脚本-动作脚本添加以下vbs脚本：
Option Explicit
Function action
Dim flow
Set flow=hmiruntime.Tags("flow")
flow.Write Second(Now)
End Function
在报警记录中设置flow上限45报警。项目计算机属性启动项目中勾选全局脚本和报警记录选项。保存运行，就可以看到报警控件列宽被修改了。