CIMTranslationGroup.Parent (read-only property)

Gets the CIMTranslationGroups that owns this object.

Syntax:

Set object = object.Parent

Description:

Gets the CIMTranslationGroups that owns this object.

Example:

Sub Parent_Example()

    Dim oLangMap As
CIMLangMapper.CIMLangMap

    Dim oTranslationGroup As
CIMLangMapper.CIMTranslationGroup

    Dim oTranslationGroups As
CIMLangMapper.CIMTranslationGroups

    Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap")

    oLangMap.Load
"c:\trans.clm"

    Set oTranslationGroup =
oLangMap.LookupTranslationGroup("Wheel bearing")

    if Not oTranslationGroup Is Nothing
Then

      Set oTranslationGroups =
oTranslationGroup.Parent

End If
End Sub