Switch to more modern vb construct (#76615)

Author: CyrusNajmabadi

src/Analyzers/VisualBasic/Analyzers/ValidateFormatString/VisualBasicValidateFormatStringDiagnosticAnalyzer.vb

@@ -24,7 +24,7 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.ValidateFormatString
 
             For Each argument In arguments
                 Dim simpleArgumentSyntax = TryCast(argument, SimpleArgumentSyntax)
-                If Not simpleArgumentSyntax Is Nothing AndAlso simpleArgumentSyntax.NameColonEquals?.Name.Identifier.ValueText.Equals(searchArgumentName) Then
+                If simpleArgumentSyntax IsNot Nothing AndAlso simpleArgumentSyntax.NameColonEquals?.Name.Identifier.ValueText.Equals(searchArgumentName) Then
                     Return argument
                 End If
             Next

src/Analyzers/VisualBasic/CodeFixes/AddAnonymousTypeMemberName/VisualBasicAddAnonymousTypeMemberNameCodeFixProvider.vb

@@ -28,7 +28,7 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.AddAnonymousTypeMemberName
             ImmutableArray.Create(BC36556)
 
         Protected Overrides Function HasName(declarator As FieldInitializerSyntax) As Boolean
-            Return Not TypeOf declarator Is InferredFieldInitializerSyntax
+            Return TypeOf declarator IsNot InferredFieldInitializerSyntax
         End Function
 
         Protected Overrides Function GetExpression(declarator As FieldInitializerSyntax) As ExpressionSyntax

src/Analyzers/VisualBasic/CodeFixes/GenerateParameterizedMember/VisualBasicGenerateParameterizedMemberService.vb

@@ -63,7 +63,7 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.GenerateMember.GenerateMethod
 
             Protected Overrides Function GetCapturedTypeParameters(cancellationToken As CancellationToken) As ImmutableArray(Of ITypeParameterSymbol)
                 Dim result = New List(Of ITypeParameterSymbol)()
-                If Not Me.InvocationExpression.ArgumentList Is Nothing Then
+                If Me.InvocationExpression.ArgumentList IsNot Nothing Then
                     For Each argument In Me.InvocationExpression.ArgumentList.Arguments
                         Dim type = DetermineParameterType(argument, cancellationToken)
                         type.GetReferencedTypeParameters(result)

src/EditorFeatures/Test2/Expansion/AbstractExpansionTest.vb

@@ -56,7 +56,7 @@ Namespace Microsoft.CodeAnalysis.Editor.UnitTests.Expansion
         End Function
 
         Private Shared Function GetExpressionSyntaxWithSameSpan(node As SyntaxNode, spanEnd As Integer) As SyntaxNode
-            While Not node Is Nothing And Not node.Parent Is Nothing And node.Parent.SpanStart = node.SpanStart
+            While node IsNot Nothing And node.Parent IsNot Nothing And node.Parent.SpanStart = node.SpanStart
                 node = node.Parent
                 If node.Span.End = spanEnd Then
                     Exit While

src/EditorFeatures/Test2/Simplification/AbstractSimplificationTests.vb

@@ -131,7 +131,7 @@ Namespace Microsoft.CodeAnalysis.Editor.UnitTests.Simplification
         End Function
 
         Private Shared Function GetExpressionSyntaxWithSameSpan(node As SyntaxNode, spanEnd As Integer) As SyntaxNode
-            While Not node Is Nothing And Not node.Parent Is Nothing And node.Parent.SpanStart = node.SpanStart
+            While node IsNot Nothing And node.Parent IsNot Nothing And node.Parent.SpanStart = node.SpanStart
                 node = node.Parent
                 If node.Span.End = spanEnd Then
                     Exit While

src/EditorFeatures/TestUtilities2/Intellisense/TestState.vb

@@ -515,7 +515,7 @@ Namespace Microsoft.CodeAnalysis.Editor.UnitTests.IntelliSense
         Public Async Function AssertSessionIsNothingOrNoCompletionItemLike(text As String) As Task
             Await WaitForAsynchronousOperationsAsync()
             Dim session = GetExportedValue(Of IAsyncCompletionBroker)().GetSession(TextView)
-            If Not session Is Nothing Then
+            If session IsNot Nothing Then
                 Await AssertCompletionItemsDoNotContainAny(text)
             End If
         End Function

src/EditorFeatures/VisualBasic/LineCommit/ContainingStatementInfo.vb

@@ -108,7 +108,7 @@ Namespace Microsoft.CodeAnalysis.Editor.VisualBasic.LineCommit
             End If
 
             Dim containingStatement = token.GetAncestors(Of StatementSyntax) _
-                                           .Where(Function(a) Not TypeOf a Is LambdaHeaderSyntax) _
+                                           .Where(Function(a) TypeOf a IsNot LambdaHeaderSyntax) _
                                            .FirstOrDefault()
 
             Dim containingTypeStatement = TryCast(containingStatement, TypeStatementSyntax)

src/EditorFeatures/VisualBasicTest/CodeActions/MoveType/BasicMoveTypeTestsBase.vb

@@ -32,7 +32,7 @@ Namespace Microsoft.CodeAnalysis.Editor.VisualBasic.UnitTests.CodeRefactorings.M
         ) As Task
 
             Dim expectedText As String = Nothing
-            If Not expectedCode Is Nothing Then
+            If expectedCode IsNot Nothing Then
                 expectedText = expectedCode.ConvertTestSourceTag()
             End If
 

src/Features/VisualBasic/Portable/BraceCompletion/ParenthesisBraceCompletionService.vb

@@ -43,7 +43,7 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.BraceCompletion
             If skippedTriviaNode IsNot Nothing Then
                 Dim skippedToken = skippedTriviaNode.ParentTrivia.Token
                 ' These checks don't make any sense.  Leaving them in place to avoid breaking something as part of this move.
-                If skippedToken.Kind <> SyntaxKind.CloseParenToken OrElse Not TypeOf skippedToken.Parent Is BinaryConditionalExpressionSyntax Then
+                If skippedToken.Kind <> SyntaxKind.CloseParenToken OrElse TypeOf skippedToken.Parent IsNot BinaryConditionalExpressionSyntax Then
                     Return False
                 End If
             End If

src/Features/VisualBasic/Portable/Completion/CompletionProviders/InternalsVisibleToCompletionProvider.vb

@@ -32,7 +32,7 @@ Namespace Microsoft.CodeAnalysis.VisualBasic.Completion.Providers
         Protected Overrides Function GetAssemblyScopedAttributeSyntaxNodesOfDocument(documentRoot As SyntaxNode) As IImmutableList(Of SyntaxNode)
             Dim builder As ImmutableList(Of SyntaxNode).Builder = Nothing
             Dim compilationUnit = TryCast(documentRoot, CompilationUnitSyntax)
-            If Not compilationUnit Is Nothing Then
+            If compilationUnit IsNot Nothing Then
                 For Each attributeStatement In compilationUnit.Attributes
                     For Each attributeList In attributeStatement.AttributeLists
                         builder = If(builder, ImmutableList.CreateBuilder(Of SyntaxNode)())