頁面上有一個報警控件，名字為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報警。項目計算機屬性啟動項目中勾選全局腳本和報警記錄選項。保存運行，就可以看到報警控件列寬被修改了。