SetPriorityColor Method Example

The following example sets the color to display for each alarm priority in the AlarmSummary object AlarmSummaryOCX1.

Dim lGreen As OLE_COLOR

Dim lBlue As OLE_COLOR

Dim lRed As OLE_COLOR

lGreen = 57344

lBlue = 16722988

lRed = 725759

AlarmSummaryOCX1.SetPriorityColor 7, lGreen

AlarmSummaryOCX1.SetPriorityColor 6, lBlue

AlarmSummaryOCX1.SetPriorityColor 5, lRed