GefObjectEvents.AddExpressionHigh (method)

Creates a new expression event and returns its GefObjectEvent.
Syntax: Set GefObjectEvent = object.AddExpressionHigh ( )
Description: The AddExpressionHigh method creates an expression high event.


Sub GefObjectEvents_AddExpressionHigh()
    Dim oCimObj As GefObject
    Dim oCimObjEvnts As GefObjectEvents
    Dim oCimObjEvnt As GefObjectEvent
    Set oCimObj = CimGetObject
    Set oCimObjEvnts = oCimObj.Events
    Set oCimObjEvnt = oCimObjEvnts.AddExpressionHigh
    If Not oCimObjEvnt Is Nothing Then
        oCimObjEvnt.Expression = "$LOCAL.DATE.SECOND"
        oCimObjEvnt.SetAction "Procedure1", gefEventActionProcedure
        MsgBox "An expression high event was added"
        MsgBox "The expression high event was not added"
    End If
End Sub