Dim objCustomizedObject As HMICustomizedObject
Dim objDynDialog As HMIDynamicDialog
Dim sObj As String
Dim sCode As String
sObj = "Customizedobject1"
Set objCustomizedObject = ThisDocument.HMIObjects(sObj)
sCode = "'T001.Alarm_HH'"
Set objDynDialog = objCustomizedObject.Properties("BackFlashColorOn").CreateDynamic(hmiDynamicCreationTypeDynamicDialog, sCode)
With objDynDialog
.ResultType = hmiResultTypeBool
.BinaryResultInfo.PositiveValue = RGB(255, 0, 0)
.BinaryResultInfo.NegativeValue = RGB(255, 255, 0)
.Trigger.VariableTriggers(1).CycleType = hmiVariableCycleTypeOnChange

这是简单的一段代码，组态动态对话框，当'T001.Alarm_HH'为1时，背景色闪烁。