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


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