CIMLanguages.Item (read-only property)

Gets the CIMLanguage at the specified index.
Syntax: Set object = object.Item ( Index )
Parameters:
Index As VARIANT* -
Description: Gets the CIMLanguage at the specified index.

Example:

Sub LanguagesIndex_Example()
    
    Dim oLangMap As CIMLangMapper.CIMLangMap
    Dim oLangs As CIMLangMapper.CIMLanguages
    Dim oLang As CIMLangMapper.CIMLanguage
    Dim Index As Long
    
    Set oLangMap = CreateObject("CIMLangMapper.CIMLangMap")
    oLangMap.Load "c:\trans.clm"
    
    Set oLangs = oLangMap.Languages
    For Index = 0 to oLangs.Count - 1
      Set oLang = oLangs.Item(Index)
      MsgBox oLang.Name
    Next Index
    
End Sub