CIMTranslation.Group (read-only property)

Gets the CIMTranslationGroup that owns this translation.

Syntax:

Set object = object.Group

Description:

Gets the CIMTranslationGroup that owns this translation.

Example:

Sub Translation_Example()

    Dim oLangMap As
CIMLangMapper.CIMLangMap

    Dim oTranslationGroup As
CIMLangMapper.CIMTranslationGroup

    Dim oTranslation As
CIMLangMapper.CIMTranslation

    Dim oTranslations As
CIMLangMapper.CIMTranslations

    Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap")

    oLangMap.Load
"c:\trans.clm"

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

    if Not oTranslationGroup Is Nothing
Then

      Set oTranslations =
oTranslationGroup.Translations

      For Each oTranslation In
oTranslations

        MsgBox
oTranslation.Value

        MsgBox
oTranslation.Language.Name

        Set
oTranslationGroup = oTranslation.Group

      Next
oTranslation

End If
End Sub