GefObjectEvent.SetAction (method)

Sets the action associated with this event.
Syntax: object.SetAction Name, Type
Parameters:
Name As String -
Description: This is the action (script entry point, procedure, etc.) which is executed when this event occurs.

Example:

Sub GefObjectEvent_SetAction()
    
    Dim oCimObj As GefObject
    Dim oCimObjEvnts As GefObjectEvents
    Dim oCimObjEvnt As GefObjectEvent
    
    Set oCimObj = CimGetObject
    Set oCimObjEvnts = oCimObj.Events
    Set oCimObjEvnt = oCimObjEvnts.Item(0)
    
    oCimObjEvnt.SetAction "GefObjectEvent_SetEvent", _
        gefEventActionScript
    
End Sub