14Private ReadOnly s_modifierDefinitions As New SortedList(Of ModifierFlags, SyntaxKind) From { 15{ModifierFlags.Partial, SyntaxKind.PartialKeyword}, 16{ModifierFlags.Default, SyntaxKind.DefaultKeyword}, 17{ModifierFlags.Private, SyntaxKind.PrivateKeyword}, 18{ModifierFlags.Protected, SyntaxKind.ProtectedKeyword}, 19{ModifierFlags.Public, SyntaxKind.PublicKeyword}, 20{ModifierFlags.Friend, SyntaxKind.FriendKeyword}, 21{ModifierFlags.MustOverride, SyntaxKind.MustOverrideKeyword}, 22{ModifierFlags.Overridable, SyntaxKind.OverridableKeyword}, 23{ModifierFlags.NotOverridable, SyntaxKind.NotOverridableKeyword}, 24{ModifierFlags.Overrides, SyntaxKind.OverridesKeyword}, 25{ModifierFlags.MustInherit, SyntaxKind.MustInheritKeyword}, 26{ModifierFlags.NotInheritable, SyntaxKind.NotInheritableKeyword}, 27{ModifierFlags.Static, SyntaxKind.StaticKeyword}, 28{ModifierFlags.Shared, SyntaxKind.SharedKeyword}, 29{ModifierFlags.Shadows, SyntaxKind.ShadowsKeyword}, 30{ModifierFlags.ReadOnly, SyntaxKind.ReadOnlyKeyword}, 31{ModifierFlags.WriteOnly, SyntaxKind.WriteOnlyKeyword}, 32{ModifierFlags.Dim, SyntaxKind.DimKeyword}, 33{ModifierFlags.Const, SyntaxKind.ConstKeyword}, 34{ModifierFlags.WithEvents, SyntaxKind.WithEventsKeyword}, 35{ModifierFlags.Widening, SyntaxKind.WideningKeyword}, 36{ModifierFlags.Narrowing, SyntaxKind.NarrowingKeyword}, 37{ModifierFlags.Custom, SyntaxKind.CustomKeyword}, 38{ModifierFlags.ByVal, SyntaxKind.ByValKeyword}, 39{ModifierFlags.ByRef, SyntaxKind.ByRefKeyword}, 40{ModifierFlags.Optional, SyntaxKind.OptionalKeyword}, 41{ModifierFlags.ParamArray, SyntaxKind.ParamArrayKeyword} 45Public Function GetModifierFlags(member As StatementSyntax) As ModifierFlags 46Dim result As ModifierFlags = 0 51result = result Or ModifierFlags.Partial 53result = result Or ModifierFlags.Default 55result = result Or ModifierFlags.Private 57result = result Or ModifierFlags.Protected 59result = result Or ModifierFlags.Public 61result = result Or ModifierFlags.Friend 63result = result Or ModifierFlags.MustOverride 65result = result Or ModifierFlags.Overridable 67result = result Or ModifierFlags.NotOverridable 69result = result Or ModifierFlags.Overrides 71result = result Or ModifierFlags.MustInherit 73result = result Or ModifierFlags.NotInheritable 75result = result Or ModifierFlags.Static 77result = result Or ModifierFlags.Shared 79result = result Or ModifierFlags.Shadows 81result = result Or ModifierFlags.ReadOnly 83result = result Or ModifierFlags.WriteOnly 85result = result Or ModifierFlags.Dim 87result = result Or ModifierFlags.Const 89result = result Or ModifierFlags.WithEvents 91result = result Or ModifierFlags.Widening 93result = result Or ModifierFlags.Narrowing 95result = result Or ModifierFlags.Custom 103Public Function GetModifierFlags(parameter As ParameterSyntax) As ModifierFlags 104Dim result As ModifierFlags = 0 109result = result Or ModifierFlags.ByVal 111result = result Or ModifierFlags.ByRef 113result = result Or ModifierFlags.Optional 115result = result Or ModifierFlags.ParamArray 123Public Function UpdateModifiers(member As StatementSyntax, flags As ModifierFlags) As StatementSyntax 144Public Function UpdateModifiers(parameter As ParameterSyntax, flags As ModifierFlags) As ParameterSyntax

1471If (flags And ModifierFlags.Public) <> 0 Then 1473ElseIf (flags And ModifierFlags.Protected) <> 0 AndAlso 1474(flags And ModifierFlags.Friend) <> 0 Then 1476ElseIf (flags And ModifierFlags.Friend) <> 0 Then 1478ElseIf (flags And ModifierFlags.Protected) <> 0 Then 1480ElseIf (flags And ModifierFlags.Private) <> 0 Then 1488If (flags And ModifierFlags.WithEvents) <> 0 Then 1540Dim flags = member.GetModifierFlags() And Not (ModifierFlags.AccessModifierMask Or ModifierFlags.Dim Or ModifierFlags.WithEvents) 1543flags = flags Or ModifierFlags.Private 1545flags = flags Or ModifierFlags.Protected 1548flags = flags Or ModifierFlags.Friend 1551flags = flags Or ModifierFlags.Public 1553flags = flags Or ModifierFlags.Friend 1555flags = flags Or ModifierFlags.Protected Or ModifierFlags.Friend 1561flags = flags Or ModifierFlags.WithEvents 1565flags = flags Or ModifierFlags.Dim 2120If (flags And ModifierFlags.NotOverridable) <> 0 Then 2124If (flags And ModifierFlags.MustOverride) <> 0 Then 2128If (flags And ModifierFlags.Overridable) <> 0 Then 2132If (flags And ModifierFlags.Overrides) <> 0 Then 2156If (flags And ModifierFlags.Partial) <> 0 Then 2190flags = flags And Not ModifierFlags.Partial 2193flags = flags Or ModifierFlags.Partial 2312If (flags And ModifierFlags.Const) <> 0 Then 2316If (flags And ModifierFlags.ReadOnly) <> 0 Then 2344flags = flags And Not (ModifierFlags.Const Or ModifierFlags.ReadOnly Or ModifierFlags.Dim) 2347flags = flags Or ModifierFlags.Const 2349flags = flags Or ModifierFlags.ReadOnly 2353flags = flags Or ModifierFlags.Dim 2371If (flags And ModifierFlags.Partial) <> 0 Then 2407flags = flags And Not ModifierFlags.Partial 2410flags = flags Or ModifierFlags.Partial 2437flags = flags And Not ModifierFlags.Shared 2629flags = flags And Not (ModifierFlags.MustInherit Or ModifierFlags.NotInheritable Or ModifierFlags.Shadows) 2633flags = flags Or ModifierFlags.MustInherit 2635flags = flags Or ModifierFlags.NotInheritable 2639flags = flags Or ModifierFlags.Shadows 2660Return (flags And ModifierFlags.MustOverride) <> 0 2731flags = flags And Not (ModifierFlags.NotOverridable Or ModifierFlags.Shadows Or ModifierFlags.Overrides Or ModifierFlags.MustOverride Or ModifierFlags.Overridable) 2735flags = flags Or ModifierFlags.NotOverridable 2737flags = flags Or ModifierFlags.Shadows 2739flags = flags Or ModifierFlags.Overrides 2741flags = flags Or ModifierFlags.MustOverride 2743flags = flags Or ModifierFlags.Overridable 2745flags = flags Or ModifierFlags.NotOverridable Or ModifierFlags.Overrides 2747flags = flags Or ModifierFlags.Overridable Or ModifierFlags.Shadows 2752If (flags And ModifierFlags.MustOverride) <> 0 Then 2824flags = flags Or ModifierFlags.MustInherit 2826flags = flags Or ModifierFlags.MustOverride 2830flags = flags And Not ModifierFlags.MustInherit 2832flags = flags And Not ModifierFlags.MustOverride 2852Return (flags And (ModifierFlags.Const Or ModifierFlags.ReadOnly)) <> 0 2884flags = flags And Not ModifierFlags.Default 2887flags = flags Or ModifierFlags.Default 2933Dim flags = member.GetModifierFlags() And Not ModifierFlags.Dim 2936flags = flags Or ModifierFlags.Shared 2938flags = flags And Not ModifierFlags.Shared 2942flags = flags Or ModifierFlags.Dim