fixed object/collection initializer in local variable declaration

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/branches/vbnet@6170 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61

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

@@ -1024,15 +1024,7 @@ VariableDeclarationStatement =
 		(. PushContext(Context.Identifier, la, t); .) (.OnEachPossiblePath: SetIdentifierExpected(la); .)
 		Identifier (. PopContext(); .) [ "?" ] [ ( "(" { "," } ")" ) ]
 	}
-	[ (. PushContext(Context.Type, la, t); .)
-		"As" TypeName
-		[ "New" (. PushContext(Context.ObjectCreation, la, t); .) ]
-		TypeName
-		(.
-		if (CurrentBlock.context == Context.ObjectCreation)
-			PopContext();
-		PopContext();
-		.) ]
+	[ "As" ( NewExpression | (. PushContext(Context.Type, la, t); .) TypeName (. PopContext(); .) ) ]
 	[ "=" Expression ]
 .