private void _state_StateChanged(object sender, EventArgs e)
        {
            if (_state.Status != ParserState.Ready)
            {
                return;
            }

            var declarations = _state.AllDeclarations.Where(d => !d.IsBuiltIn).ToList();

private void ParseAll()
{
    var components = _vbe.VBProjects.Cast<VBProject>()
        .SelectMany(project => project.VBComponents.Cast<VBComponent>()).ToList();

    foreach (var component in components)
    {
        State.SetModuleState(component, ParserState.Error);
    }

    var result = Parallel.ForEach(components, component => { ParseComponentAsync(component, false); });

    if (result.IsCompleted)
    {
        using (var tokenSource = new CancellationTokenSource())
        {
            Resolve(tokenSource.Token);

        var declarations = _state.AllDeclarations.Where(d => !d.IsBuiltIn).ToList();

        // prevent multiple threads from changing state simultaneously:
        lock(_lock)
        {
            Status = _moduleStates.Values.Any(value => value == ParserState.Error)
                ? ParserState.Error
                : _moduleStates.Values.Any(value => value == ParserState.Parsing)
                    ? ParserState.Parsing
                    : _moduleStates.Values.Any(value => value == ParserState.Resolving)
                        ? ParserState.Resolving
                        : ParserState.Ready;

    private ParserState EvaluateParserState()
    {

    }

            // prevent multiple threads from changing state simultaneously:
            lock(_lock)
            {
                Status = EvaluateParserState();

            }
        }

        private ParserState EvaluateParserState()
        {
            var moduleStates = _moduleStates.Values.ToList();
            var state = Enum.GetValues(typeof (ParserState)).Cast<ParserState>()
                .SingleOrDefault(value => moduleStates.All(ps => ps == value));

            if (state != default(ParserState))

foreach (var project in _vbe.VBProjects.OfType<VBProject>().Where(p => !p.Saved))
{
    try
    {
        project.SaveAs(_vbe.ActiveVBProject.Name);
    }
    catch (COMException e)
    {
    }
}

_autoSave = new AutoSave.AutoSave(_vbe, 15000);

Application.ActiveWorkbook.Save

Implements IThisWorkbook

Public Sub IThisWorkbook_Foo()
    Err.Raise 5 'TODO: implement interface member
End Sub

Public Sub IThisWorkbook_Bar()
    Err.Raise 5 'TODO: implement interface member
End Sub

Sub Foo()

End Sub

Sub Bar()

End Sub

public void Dispose()
{
    if (Application != null)
    {
        Marshal.ReleaseComObject(Application);
    }
}

public interface IHostApplication : IDisposable

Public Sub FindMenuCommand(ByVal caption As String)
    Dim cmd As CommandBar
    Dim ctl As CommandBarControl
    For Each cmd In Application.VBE.CommandBars
        For Each ctl In cmd.Controls
            If ctl.caption = caption Then
                Debug.Print "Found '" & caption & "' at CommandBar '" & cmd.Name & "', index " & cmd.Index & "; control #" & ctl.Index & "; " & "Id'" & ctl.ID & "'."
            End If
        Next
    Next
End Sub

Found '&Save Book1' at CommandBar 'Standard', index 2; control #3; Id'3'.
Found '&Save Book1' at CommandBar 'Document', index 6; control #1; Id'3'.