public IParseTree Parse(string code)
        {
            var input = new AntlrInputStream(code);
            var lexer = new VBLexer(input);
            var tokens = new CommonTokenStream(lexer);
            var parser = new VBParser(tokens);

            var result = parser.StartRule();
            return result;
        }

// iCS_S_MembersCall first, so that member calls are not resolved as separate iCS_S_VariableOrProcedureCalls
implicitCallStmt_InStmt :
	iCS_S_MembersCall
	| iCS_S_VariableOrProcedureCall
	| iCS_S_ProcedureOrArrayCall
	| iCS_S_DictionaryCall
;

'begin bas
 Public Sub Main()
 End Sub
 'end bas

Public Sub AddMessage(ByVal message As String)
    Me.MessageList.AddItem message
End Sub

Private Sub exampleCall1()
' example call for using progress bar with a looping process
    Dim pbar As Form_ProgressBar
    Dim i As Long
    Dim Steps As Long
    Steps = 100000

    Set pbar = New Form_ProgressBar
    With pbar
        .Init Steps, PBarDisplayPercent ', "Hey, I'm working here!"
        For i = 1 To Steps
            ' do something in a loop

            .AddMessage "some message " & i
            ' update progress
            .CurrentProgress = i
        Next i
    End With
    Set pbar = Nothing

Option Explicit
Dim foo As String

Dim foo As String
Option Explicit

?application.VBE.ActiveVBProject.VBComponents(1).Properties.Count
 127

Application
Creator
Parent
AcceptLabelsInFormulas
ActiveChart
ActiveSheet
Author
AutoUpdateFrequency
AutoUpdateSaveChanges
ChangeHistoryDuration
BuiltinDocumentProperties
Charts
CodeName
_CodeName
Colors
CommandBars
Comments
ConflictResolution
Container
CreateBackup
CustomDocumentProperties
Date1904
DialogSheets
DisplayDrawingObjects
FileFormat
FullName
HasMailer
HasPassword
HasRoutingSlip
IsAddin
Keywords
Mailer
Modules
MultiUserEditing
Name
Names
OnSave
OnSheetActivate
OnSheetDeactivate
Path
PersonalViewListSettings

Name
Instancing

for i = 1 to application.VBE.Windows.Count : ?application.VBE.Windows(i).Caption:next
Code Inspections
ToDo Explorer
Code Explorer
Test Explorer
Project - System

Properties - Framework
Object Browser
Watches
Locals
Immediate

Sub test2()

    Dim project As VBProject
    Set project = ThisWorkbook.VBProject

    Stop
End Sub

Public Sub Lunch()
    While Me.IsEating
        DoEvents

    Wend
End Sub

C:\Program Files (x86)\Rubberduck\Rubberduck
2015/02/09  07:07           198,656 Antlr4.Runtime.net45.dll
2015/02/10  19:43           762,880 git2-e0902fb.dll
2015/02/10  19:43           339,968 LibGit2Sharp.dll
2015/03/04  14:22           875,008 Rubberduck.dll
2015/03/04  14:22         1,889,792 Rubberduck.pdb
2015/03/04  14:22            11,652 Rubberduck.tlb