GefObjectEvent.SetAction (method)

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


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", _
End Sub