CimEmPointEvent.QualityAlarmed (property, read)

Syntax CimEMPointEvent.QualityAlarmed
Description Boolean. Returns TRUE if the point that triggered the event is in alarm, FALSE otherwise.
Example 
Sub Main()
   Dim p as new CimEMPointEvent
   Set p = CimGetEmEvent().PointEvent()
   if p.QualityAlarmed then
      DoSomething
   End If
End Sub