fix http://community.sharpdevelop.net/forums/t/15659.aspx

src/Libraries/NRefactory/Project/Src/Lexer/VBNet/ExpressionFinder.atg

@@ -691,8 +691,9 @@ ConditionalExpression =
 .
 
 LambdaExpression =
-	SubLambdaExpression |
-	FunctionLambdaExpression
+	(. lambdaNestingDepth++; .)
+	( SubLambdaExpression | FunctionLambdaExpression )
+	(. lambdaNestingDepth--; .)
 .
 
 SubLambdaExpression =

src/Libraries/NRefactory/Project/Src/Lexer/VBNet/ExpressionFinder.cs

@@ -40,6 +40,7 @@ namespace ICSharpCode.NRefactory.Parser.VB
 			nextTokenIsPotentialStartOfExpression = state.NextTokenIsPotentialStartOfExpression;
 			nextTokenIsStartOfImportsOrAccessExpression = state.NextTokenIsStartOfImportsOrAccessExpression;
 			readXmlIdentifier = state.ReadXmlIdentifier;
+			lambdaNestingDepth = state.LambdaNestingDepth;
 			identifierExpected = state.IdentifierExpected;
 			stateStack = new Stack<int>(state.StateStack.Reverse());
 			stack = new Stack<Block>(state.BlockStack.Select(x => (Block)x.Clone()).Reverse());
@@ -107,6 +108,10 @@ namespace ICSharpCode.NRefactory.Parser.VB
 				.IsElement(fx => fx.context == expected);
 		}
 		
+		public int LambdaNestingDepth {
+			get { return lambdaNestingDepth; }
+		}
+		
 		public bool NextTokenIsPotentialStartOfExpression {
 			get { return nextTokenIsPotentialStartOfExpression; }
 		}

src/Libraries/NRefactory/Project/Src/Lexer/VBNet/ExpressionFinderState.cs

@@ -15,6 +15,7 @@ namespace ICSharpCode.NRefactory.Parser.VB
 		public bool ReadXmlIdentifier { get; set; }
 		public bool IdentifierExpected { get; set; }
 		public bool NextTokenIsStartOfImportsOrAccessExpression { get; set; }
+		public int LambdaNestingDepth { get; set; }
 		public Stack<int> StateStack { get; set; }
 		public Stack<Block> BlockStack { get; set; }
 		public int CurrentState { get; set; }

src/Libraries/NRefactory/Project/Src/Lexer/VBNet/Lexer.cs

@@ -1136,13 +1136,22 @@ namespace ICSharpCode.NRefactory.Parser.VB
 		public override void SkipCurrentBlock(int targetToken)
 		{
 			int lastKind = -1;
-			int kind = base.lastToken.kind;
-			while (kind != Tokens.EOF &&
-			       !(lastKind == Tokens.End && kind == targetToken))
-			{
+			int kind = lastToken.kind;
+			int lambdaDepth = 0;
+			
+			while (kind != Tokens.EOF) {
 				lastKind = kind;
+				StartPeek();
+				// lambda nesting depth is not correct at end of lambda,
+				// so we have to check right before the end
+				if (Peek().kind == Tokens.End)
+					lambdaDepth = ef.LambdaNestingDepth;
 				NextToken();
 				kind = lastToken.kind;
+				// special handling for multi line lambdas
+				// once lambdaDepth <= 0 we've reached the end of the method (after the last End Sub/Function)
+				if (lastKind == Tokens.End && kind == targetToken && lambdaDepth <= 0)
+					break;
 			}
 		}
 		

src/Libraries/NRefactory/Project/Src/Lexer/VBNet/PushParser.frame

@@ -42,6 +42,7 @@ partial class ExpressionFinder {
 	bool isMissingModifier = false;
 	bool isAlreadyInExpr = false;
 	bool wasNormalAttribute = false;
+	int lambdaNestingDepth = 0;
 	int activeArgument = 0;
 	List<Token> errors = new List<Token>();