added missing possible expression in SelectStatement

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

src/Libraries/NRefactory/Project/Src/Parser/VBNet/Experimental/ExpressionFinder.atg

@@ -540,13 +540,13 @@ IfStatement =
     "If" Expression
     (    "Then"
         ( Statement { ":" Statement } [ "Else" Statement { ":" Statement } ] EOL
-        | MultilineIfRest
+        | MultilineIfRemainder
         )
-    |    MultilineIfRest
+    |    MultilineIfRemainder
     )
 .
 
-MultilineIfRest =
+MultilineIfRemainder =
     StatementTerminatorAndBlock
     {
         ("Else" [ "If" Expression [ "Then" ] ]
@@ -560,12 +560,20 @@ MultilineIfRest =
 SelectStatement =
 	"Select" [ "Case" ] Expression StatementTerminator
 	{
-		"Case" ( "Else" | [ "Is" ] Expression { "," [ "Is" ] Expression } )
+		"Case" (
+			"Else" |
+			( [ "Is" ] ComparisonOperator SimpleExpressionWithSuffix | Expression )
+				{ "," ( [ "Is" ] ComparisonOperator SimpleExpressionWithSuffix | Expression ) }
+		)
 		StatementTerminatorAndBlock
 	}
 	"End" "Select"
 .
 
+ComparisonOperator =
+	"=" | "<>" | "<" | ">" | ">=" | "<="
+.
+
 InvocationStatement =
 	[ "Call" ] Expression
 .