Public Sub EnumEnums()
    Dim ref As Object
    Dim m_TLInf As TypeLibInfo
    Dim SIType As SearchItem
    Dim SIMember As SearchItem
    Dim MInfo As MemberInfo
    On Error GoTo HandleErr
    Set m_TLInf = New TypeLibInfo
    With m_TLInf
 1         For Each ref In VBE.ActiveVBProject.References
 2             .ContainingFile = ref.FullPath
 3             Debug.Print ref.name
 4             For Each SIType In .GetTypes
 5                 If SIType.SearchType = tliStConstants Then '4'
 6                     If .GetTypeInfo(SIType.TypeInfoNumber).TypeKind = TKIND_ENUM Then ' TKIND_ENUM=0'
 7                         Debug.Print  "    "  & SIType.name
 8                         For Each SIMember In .GetMembers(SIType.SearchData)
 9                          Set MInfo = m_TLInf.GetMemberInfo(SIType.SearchData, SIMember.InvokeKinds, , SIMember.name)
 10                             Debug.Print  "        "  & SIMember.name &  " Value: "  & MInfo.Value
 11                         Next SIMember
 12                     End If
 13                 End If
 14             Next SIType
 15         Next ref
    End With
            
HandleExit:
    Exit Sub
HandleErr:
    Debug.Print  "GetEnums error: "  & Err.number &  " "  & Err.Description &  " Line: "  & Erl
    Resume HandleExit
End Sub