Returns a collection of Events on an Alarm Filter. This is a read-only property. For more information about the collection returned by this property, please check topic Collection of Events. Usage example of this property:

Sub CommandButton1_Click()
  For Each evt In Screen.Item("AlarmFilter1").Events
    str = ""
    str = str & "AlarmSourceName     = " &_
      evt.AlarmSourceName & Chr(13)
    str = str & "FullAlarmSourceName = " &_
      evt.FullAlarmSourceName & Chr(13)
    str = str & "EventTime           = " &_
      evt.EventTime & Chr(13)
    str = str & "EventTimeUTC        = " &_
      evt.EventTimeUTC & Chr(13)
    str = str & "InTime              = " &_
      evt.InTime & Chr(13)
    str = str & "OutTime             = " &_
      evt.OutTime & Chr(13)
    str = str & "AckTime             = " &_
      evt.AckTime & Chr(13)
    str = str & "CurrentValue        = " &_
      evt.CurrentValue & Chr(13)
    str = str & "ActorID             = " &_
      evt.ActorID & Chr(13)
    str = str & "Area                = " &_
      evt.Area & Chr(13)
    str = str & "ConditionName       = " &_
      evt.ConditionName & Chr(13)
    str = str & "EventCategory       = " &_
      evt.EventCategory & Chr(13)
    str = str & "EventType           = " &_
      evt.EventType & Chr(13)
    str = str & "Message             = " &_
      evt.Message & Chr(13)
    str = str & "Quality             = " &_
      evt.Quality & Chr(13)
    str = str & "Source              = " &_
      evt.Source & Chr(13)
    str = str & "SubConditionName    = " &_
      evt.SubConditionName & Chr(13)
    str = str & "FormattedValue      = " &_
      evt.FormattedValue & Chr(13)
    str = str & "UserField(1)        = " &_
      evt.UserField(1) & Chr(13)
    str = str & "UserField(2)        = " &_
      evt.UserField(2) & Chr(13)
    str = str & "UserField(3)        = " &_
      evt.UserField(3) & Chr(13)
    str = str & "UserField(4)        = " &_
      evt.UserField(4) & Chr(13)
    str = str & "Severity            = " &_
      evt.Severity & Chr(13)
    str = str & "Acked               = " &_
      evt.Acked & Chr(13)
    str = str & "AckRequired         = " &_
      evt.AckRequired & Chr(13)
    str = str & "ConditionActive     = " &_
      evt.ConditionActive & Chr(13)
    str = str & "Enabled             = " &_
      evt.Enabled & Chr(13)
    str = str & "EventCLSID          = " &_
      evt.EventCLSID & Chr(13)
    MsgBox str
  Next
End Sub