| Gets the parent of the object. | |
| Syntax: | Set object = object.Parent |
| Description: | The Parent property will return the
container object which owns this object. Example: 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 & """" Else MsgBox "This
object is not a push button" End If End Sub |