GefObjectEvent.ActiveXEventName (property)

Gets and sets the name of the ActiveX event.

Syntax:

String = object.ActiveXEventName
object.ActiveXEventName = String

Description:

This property is only valid for events whose Type is gefEventActiveX

Example:

Sub GefObjectEvent_ActiveXEventName()

Dim oCimObj As GefObject

    Dim oCimObjEvnts As
GefObjectEvents

    Dim oCimObjEvnt As
GefObjectEvent

Set oCimObj = CimGetObject

    Set oCimObjEvnts =
oCimObj.Events

    Set oCimObjEvnt =
oCimObjEvnts.Item(0)

    If Not oCimObjEvnt Is Nothing
Then

        MsgBox "The
ActiveX event name is " & _

            oCimObjEvnt.ActiveXEventName
    End If

End Sub