Attribute VB_Name = "LMUFunctions"
'===== Модуль внешних функций для класса проверки ссылок =====
Option Explicit
Option Private Module

Public Type LMU_LinksInfo
  lnkCount_ As Long
  errCount_ As Long
  modCount_ As Long
End Type

Public Enum LMU_Return
  RV_LINK_OK
  RV_LINK_FIXED
  RV_LINK_NOFIX
  RV_NOTAFSO
End Enum

Public Function GetLMU() As LinkMappingUnit
  Static result As LinkMappingUnit ' Статическая переменная
  If result Is Nothing Then
  ' Открываем коннект при первом обращении
    Set result = New LinkMappingUnit
  End If
  Set GetLMU = result
End Function