private Declaration Resolve(VBAParser.ICS_S_MembersCallContext context)
        {
            if (context == null)
            {
                return null;
            }

            var members = context.iCS_S_MemberCall();
            for (var index = 0; index < members.Count; index++)
            {
                var member = members[index];
                if (index < members.Count - 1)
                {
                    var parent = Resolve(member.iCS_S_ProcedureOrArrayCall())

Q: "Whats the object-oriented way to become wealthy?"

A: Multiple inheritance

A guy is standing on the corner of the street smoking one cigarette after another. A lady walking by notices him and says
"Hey, don't you know that those things can kill you? I mean, didn't you see the giant warning on the box?!"
"That's OK" says the guy, puffing casually "I'm a computer programmer"
"So? What's that got to do with anything?"
"We don't care about warnings. We only care about errors."

        private readonly Stack<Declaration> _withQualifiers = new Stack<Declaration>();
        private bool _isInsideWithBlock;
        private bool _isCurrentWithBlockResolved;

        public override void EnterWithStmt(VBAParser.WithStmtContext context)
        {
            _isInsideWithBlock = true;
            _isCurrentWithBlockResolved = false;

            var implicitCall = context.implicitCallStmt_InStmt();

            Declaration returnType;
            var call = Resolve(implicitCall.iCS_S_ProcedureOrArrayCall())

        _isInsideWithBlock = true;
        _isCurrentWithBlockResolved = false;

{ actions: { nicotine: true } }

var foo = undefined;
foo = null;
foo = NaN;
foo = 42;
foo = false;
foo = "hello";
console.log(foo + "! hey look, no error!");

Dim foo As Variant
Set foo = Nothing
foo = vbEmpty
foo = 42
foo = False
foo = "hello"
Debug.Print foo & "! hey look, no error!"

class test {
	public static void main(String[] args) {
		// none of below actually works!!
		int foo = null;
		foo = 42;
		foo = false;
		foo = "hello";
		System.out.println(foo + "! hey look, all the errors!");
	}
}

        return matches.SingleOrDefault();

<TTGTB />

        var currentScope = matches.SingleOrDefault(declaration =>
            declaration.Scope == _currentScope
            && (accessorType == DeclarationType.Class
                ? declaration.DeclarationType == DeclarationType.Class
                : accessorType == DeclarationType.PropertySet
                    ? (declaration.DeclarationType != DeclarationType.PropertyGet && declaration.DeclarationType != DeclarationType.PropertyLet)
                    : accessorType == DeclarationType.PropertyLet

public enum DeclarationType
{
    Project,
    Module,
    Class,
    Control,
    ModuleOption,
    Procedure,
    Function,
    PropertyGet,
    PropertyLet,
    PropertySet,
    Parameter,
    Variable,
    Constant,
    Enumeration,
    EnumerationMember,
    Event,
    UserDefinedType,
    UserDefinedTypeMember,
    LibraryFunction,
    LineLabel
}

Controls.Where(c => c is CheckBox).Cast<CheckBox>().Select(c => c.Checked).ToList();

bool Thing(Declaration declaration, DeclarationType accessorType)
{
    if (declaration.Scope != _currentScope)
    {
        return false;
    }

    switch (accessorType)
    {
    case DeclarationType.Class:
        return declaration.DeclarationType == DeclarationType.Class;

    case DeclarationType.PropertySet:
        return declaration.DeclarationType != DeclarationType.PropertyGet && declaration.DeclarationType != DeclarationType.PropertyLet;

    case DeclarationType.PropertyLet:
        return declaration.DeclarationType != DeclarationType.PropertyGet && declaration.DeclarationTy…

        private bool IsCurrentScopeMember(DeclarationType accessorType, Declaration declaration)
        {
            if (declaration.Scope != _currentScope || accessorType != DeclarationType.Class)
            {
                return false;
            }

            switch (accessorType)
            {
                case DeclarationType.Class:
                    return declaration.DeclarationType == DeclarationType.Class;

                case DeclarationType.PropertySet:
                    return declaration.DeclarationType != DeclarationType.PropertyGet && declaration.DeclarationTy…

Sub DoSomething()
    Dim Foo As New Class1
    With Foo
        .Foo
        .Bar
    End With
End Sub