Extension unhooking VBENativeServices events.
Extension broadcasting shutdown.
DockableWindowHost removed event handler.
DockableWindowHost removed event handler.
DockableWindowHost removed event handler.
DockableWindowHost removed event handler.
DockableWindowHost removed event handler.
Extension calling App.Shutdown.
App calling Hooks.Detach.
Extension calling Kernel.Dispose.
Extension waiting for GC to complete.
Extension calling ReleaseDockableHosts.
DockableWindowHost dispose called.
DockableWindowHost dispose called.

'IShape
Option Explicit

Public Function GetArea() As Double
End Function

Public Function GetPerimiter() As Double
End Function

'Ellipse
Option Explicit

Implements IShape

Private Type TEllipse
  Radius As Double
End Type

Private this As TEllipse

Private Sub Class_Initialize()
  'Default the radius to 1
  this.Radius = 1
End Sub

Public Property Let Radius(Value As Double)
  this.Radius = Value
End Property

Public Property Get Radius() As Double
  Radius = this.Radius
End Property

Public Function GetArea() As Double
  GetArea = WorksheetFunction.PI * this.Radius ^ 2
End Function

Public Function GetCircumference() As Double

'Module 1
Option Explicit

Sub test()

  Dim abstractCircle As IShape
  Dim concreteCircle As Ellipse

  Set abstractCircle = New IShape '**** Class_Initialize isn't called???****
  With abstractCircle
    'IShape doesn't expose a radius property, so method
    'calls will get whatever the default radius is.
    Debug.Print .GetArea          'Calls the Interface member
    Debug.Print .GetPerimiter     'Calls the Interface member
 End With

  Set concreteCircle = New Ellipse
  With concreteCircle

'IShape
Option Explicit

Public Function GetArea() As Double
End Function

Public Function GetPerimeter() As Double
End Function

'Ellipse
Option Explicit

Implements IShape

Private Type TEllipse
  Radius As Double
End Type

Private this As TEllipse

Private Sub Class_Initialize()
  'Default the radius to 1
  this.Radius = 1
End Sub

Public Property Let Radius(Value As Double)
  this.Radius = Value
End Property

Public Property Get Radius() As Double
  Radius = this.Radius
End Property

Public Function GetArea() As Double
  GetArea = WorksheetFunction.PI * this.Radius ^ 2
End Function

Public Function GetCircumference() As Double

'Module 1
Option Explicit

Sub test()

  Dim abstractCircle As IShape
  Dim concreteCircle As Ellipse

  Set abstractCircle = New Ellipse
  With abstractCircle
    'IShape doesn't expose a radius property, so method
    'calls will get whatever the default radius is.
    Debug.Print .GetArea          'Calls the Interface member
    Debug.Print .GetPerimeter     'Calls the Interface member
 End With

  Set concreteCircle = New Ellipse
  With concreteCircle
    .Radius = 4
    Debug.Print .GetArea          'Calls the concrete member

               var existing = Target.GetEnumerator();
                while (existing.MoveNext())
                {
                    dynamic item = existing.Current;
                    if (name.Equals(item.Name))
                    {
                        item.Delete();
                    }
                }

public interface IComCollection<out TItem> : IEnumerable<TItem>
{
    int Count { get; }
    TItem this[object index] { get; }
}

private void DeleteExistingCommandBar(string name)
{
    try
    {
        var existing = Target.Cast<Microsoft.Office.Core.CommandBar>().FirstOrDefault(bar => bar.Name == name);
        if (existing != null)
        {
            existing.Delete();
            //Marshal.FinalReleaseComObject(existing);
        }
    }
    catch
    {
        // specified commandbar didn't exist
    }
}

        public Declaration FindSelectedDeclaration(ICodePane activeCodePane)
        {
            if (activeCodePane.IsWrappingNullReference)
            {
                return null;
            }

            var selection = activeCodePane.GetQualifiedSelection();
            if (!selection.HasValue || selection.Value.Equals(default(QualifiedSelection)))
            {
                return null;
            }

            _lastSelection = selection.Value;

            // statistically we'll be on an IdentifierReference more often than on a Declaration:

            _declarationsBySelection = declarations.Where(declaration => !declaration.IsBuiltIn)
                .ToDictionary(
                    declaration => declaration.QualifiedSelection,
                    declaration => declaration);
            _referencesBySelection = declarations
                .SelectMany(declaration => declaration.References)
                .Select(reference => reference)
                .ToDictionary(
                    reference => new QualifiedSelection(reference.QualifiedModuleName, reference.Selection),

    [DebuggerDisplay("Variable")]
    Variable = 1 << 15,

    [DebuggerDisplay("Member")]
    Member = 1 << 7,
    [DebuggerDisplay("Procedure")]
    Procedure = 1 << 8 | Member,