GefObjectEvents.GetSmartObject (method)

Gets or creates a smart object event.
Syntax: Set GefObjectEvent = object.GetSmartObject ( Create )
Parameters:
Optional Create As Boolean - If specified as True, an event of this type will be created if one does not already exist. The default is False.
Description: The GetSmartObject method gets or creates a smart object event.

Example:

Sub GefObjectEvents_GetSmartObject()
    
    Dim oCimObj As GefObject
    Dim oCimObjEvnts As GefObjectEvents
    Dim oCimObjEvnt As GefObjectEvent
    
    Set oCimObj = CimGetObject
    Set oCimObjEvnts = oCimObj.Events
    
    Set oCimObjEvnt = oCimObjEvnts.GetSmartObject
    If Not oCimObjEvnt Is Nothing Then
        MsgBox "The event's action name is " & _
            oCimObjEvnt.ActionName
    Else
        MsgBox "There are no smart object events"
    End If
    
End Sub