GefButtonFormat.Parent (read-only property)

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


Sub GefButtonFormat_Parent()
    Dim oCimObj As GefObject
    Dim oCimBtnFmt As GefButtonFormat
    Dim oObj As Object
    Set oCimObj = CimGetObject
    Set oCimBtnFmt = oCimObj.ButtonFormat
    If Not oCimBtnFmt Is Nothing Then
        Set oObj = oCimBtnFmt.Parent
        MsgBox "The parent objects name is " & _
            """" & oObj.Name & """"
        MsgBox "This object is not a push button"
    End If
End Sub