- added missing VB keywords to VBNET-Mode.xshd

- fixed code completion in CastExpressions

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/trunk@6358 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61

src/Libraries/AvalonEdit/ICSharpCode.AvalonEdit/Highlighting/Resources/VBNET-Mode.xshd

@@ -207,11 +207,13 @@
 		<Keywords color="ContextKeywords">
 			<Word>Aggregate</Word>
 			<Word>Ansi</Word>
+			<Word>Ascending</Word>
 			<Word>Auto</Word>
 			<Word>Binary</Word>
 			<Word>By</Word>
 			<Word>Compare</Word>
 			<Word>Custom</Word>
+			<Word>Descending</Word>
 			<Word>Distinct</Word>
 			<Word>Equals</Word>
 			<Word>Explicit</Word>
@@ -235,13 +237,13 @@
 	<RuleSet name="PreprocessorSet" ignoreCase="true">
 		<Keywords fontWeight="bold">
 			<Word>Const</Word>
-			<Word>If</Word>
-			<Word>ElseIf</Word>
 			<Word>Else</Word>
+			<Word>ElseIf</Word>
 			<Word>End</Word>
+			<Word>ExternalChecksum</Word>
 			<Word>ExternalSource</Word>
+			<Word>If</Word>
 			<Word>Region</Word>
-			<Word>ExternalChecksum</Word>
 		</Keywords>
 	</RuleSet>
 </SyntaxDefinition>

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

@@ -637,7 +637,7 @@ ExpressionSuffix =
 .
 
 CastExpression =
-	SimpleCastExpression | ("DirectCast" | "TryCast" | "CType") "(" Expression "," TypeName ")"
+	SimpleCastExpression | ("DirectCast" | "TryCast" | "CType") "(" Expression "," (. PushContext(Context.Type, la, t); .) TypeName (. PopContext(); .) ")"
 .
 
 SimpleCastExpression =