GetPriorityColor Method Example

The following example retrieves the color for each alarm priority in the AlarmSummary object AlarmSummaryOCX1.

Dim lLow As OLE_COLOR

Dim lMedium As OLE_COLOR

Dim lHigh As OLE_COLOR

lLow = AlarmSummaryOCX1.GetPriorityColor(7)

lMedium = AlarmSummaryOCX1.GetPriorityColor(6)

lHigh = AlarmSummaryOCX1.GetPriorityColor(5)