CIMLangMap.TranslationGroups (read-only property)

Gets the TranslationGroups collection object.
Syntax: Set object = object.TranslationGroups
Description: Gets the TranslationGroups collection object.

Example:

Sub TranslationGroups_Example()
    
    Dim oLangMap As CIMLangMapper.CIMLangMap
    Dim oTranslationGroups As CIMLangMapper.CIMTranslationGroups
    Dim oTranslationGroup As CIMLangMapper.CIMTranslationGroup
    
    Set oLangMap = CreateObject("CIMLangMapper.CIMLangMap")
    oLangMap.Load "c:\trans.clm"
    
    Set oTranslationGroups = oLangMap.TranslationGroups
    For each oTranslationGroup in oTranslationGroups
      MsgBox oTranslationGroup.Key
    Next oTranslationGroup
    
End Sub
See Also: CIMTranslationGroups