举一个简单的VBA组态例子。
画面上有100个IO控件，控件名称分别是：IO1，IO2，......，IO100，在输入输出值上需要链接变量，比如，链接结构变量，T001.T，T002.T，......，T100.T。
Private Sub ChangeIO()
Dim objIOField As HMIIOField
Dim objVariableTrigger As HMIVariableTrigger
Dim sObj As String
Dim sTag As String
Dim sCode As String
Dim iIndex As Integer

For iIndex = 1 To 100
sObj = "IO" & Format(iIndex, "#0") 'IO控件名称
Set objIOField = ThisDocument.HMIObjects(sObj) ‘IO对象
sTag = "T" & Format(iIndex, "000")
sCode = sTag & ".T" '结构变量名称
‘动态组态：在IO的输入输出域属性上链接结构变量
Set objVariableTrigger = objIOField.OutputValue.CreateDynamic(hmiDynamicCreationTypeVariableDirect, sCod)
‘动态组态：触发器为根据变量变化
objVariableTrigger.CycleType = hmiVariableCycleTypeOnChange
Next iIndex
End Sub
这段VBA代码是在该画面的VBA宏中。