properly handle VB.Net to CS LINQ where and select output

Author: sharpmonkey

src/Libraries/NRefactory/Project/Src/PrettyPrinter/CSharp/CSharpOutputVisitor.cs

@@ -3187,9 +3187,22 @@ public override object TrackedVisitQueryExpressionSelectClause(QueryExpressionSe
 			outputFormatter.Space();
 			return selectClause.Projection.AcceptVisitor(this, data);
 		}
-		
-		public override object TrackedVisitQueryExpressionWhereClause(QueryExpressionWhereClause whereClause, object data)
+
+        public override object TrackedVisitQueryExpressionSelectVBClause(QueryExpressionSelectVBClause queryExpressionSelectVBClause, object data)
+        {
+            outputFormatter.Space();
+            outputFormatter.PrintToken(Tokens.Select);
+            outputFormatter.Space();
+            foreach (var v in queryExpressionSelectVBClause.Variables)
+            {
+                v.AcceptVisitor(this, data);
+            }
+            return null;
+        }
+
+	    public override object TrackedVisitQueryExpressionWhereClause(QueryExpressionWhereClause whereClause, object data)
 		{
+            outputFormatter.Space();
 			outputFormatter.PrintToken(Tokens.Where);
 			outputFormatter.Space();
 			return whereClause.Condition.AcceptVisitor(this, data);

src/Libraries/NRefactory/Test/Output/CSharp/VBNetToCSharpConverterTest.cs

@@ -914,6 +914,13 @@ public void XmlEntityReference2()
 			              @"var xml = new XElement(""A"", ""\"""");");
 		}
 
+
+        [Test]
+        public void LinqQueryWhereSelect()
+        {
+            TestStatement(@"Dim value = From value In values Where value = ""someValue"" Select value",
+                          @"var value = from value in values where value == ""someValue"" select value;");
+        }
 		[Test]
 		public void SD2_1500a()
 		{