GefArcFormat.Parent (read-only property)

Gets the parent of the object.
Syntax: Set object = object.Parent
Description: The Parent property will return the container which owns this object.


Sub GefArcFormat_Parent()
    Dim oCimObj As GefObject
    Dim oCimArcFmt As GefArcFormat
    Dim oObj As Object
    Set oCimObj = CimGetObject
    Set oCimArcFmt = oCimObj.ArcFormat
    If Not oCimArcFmt Is Nothing Then
        Set oObj = oCimArcFmt.Parent
        MsgBox oObj.Name
        MsgBox "The object is not an Arc"
    End If
End Sub