CIMTranslationGroups.Count (read-only property)

Gets the number of CIMTranslationGroup objects in the collection

Syntax:

long = object.Count

Description:

Gets the number of CIMTranslationGroup objects in the collection.

Example:

Sub CIMTranslationGroups_Example()

    Dim oLangMap As
CIMLangMapper.CIMLangMap

    Dim oTranslationGroup As
CIMLangMapper.CIMTranslationGroup

    Dim oTranslationGroups As
CIMLangMapper.CIMTranslationGroups

    Set oLangMap =
CreateObject("CIMLangMapper.CIMLangMap")

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

    Set oTranslationGroup =
oLangMap.AddTranslationGroup("Bye")

    Set oTranslationGroup =
oLangMap.AddTranslationGroup("Hello")

    Set oTranslationGroup =
oLangMap.AddTranslationGroup("Paint Color")

    Set oTranslationGroups =
oLangMap.TranslationGroups

    MsgBox
oTranslationGroups.Count

End Sub