Sub AccessLibraries()
Dim acmApp As AcadmApplication
Set acmApp =
Application.GetInterfaceObject("AcadmAuto.AcadmApplication")
Dim symMgr As McadSymbolBBMgr
Set symMgr =
Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
Dim geApp As GeApplication
Set geApp =
Application.GetInterfaceObject("Ge.Application")
End Sub