13Private ReadOnly s_modifierDefinitions As New SortedList(Of ModifierFlags, SyntaxKind) From { 14{ModifierFlags.Partial, SyntaxKind.PartialKeyword}, 15{ModifierFlags.Default, SyntaxKind.DefaultKeyword}, 16{ModifierFlags.Private, SyntaxKind.PrivateKeyword}, 17{ModifierFlags.Protected, SyntaxKind.ProtectedKeyword}, 18{ModifierFlags.Public, SyntaxKind.PublicKeyword}, 19{ModifierFlags.Friend, SyntaxKind.FriendKeyword}, 20{ModifierFlags.MustOverride, SyntaxKind.MustOverrideKeyword}, 21{ModifierFlags.Overridable, SyntaxKind.OverridableKeyword}, 22{ModifierFlags.NotOverridable, SyntaxKind.NotOverridableKeyword}, 23{ModifierFlags.Overrides, SyntaxKind.OverridesKeyword}, 24{ModifierFlags.MustInherit, SyntaxKind.MustInheritKeyword}, 25{ModifierFlags.NotInheritable, SyntaxKind.NotInheritableKeyword}, 26{ModifierFlags.Static, SyntaxKind.StaticKeyword}, 27{ModifierFlags.Shared, SyntaxKind.SharedKeyword}, 28{ModifierFlags.Shadows, SyntaxKind.ShadowsKeyword}, 29{ModifierFlags.ReadOnly, SyntaxKind.ReadOnlyKeyword}, 30{ModifierFlags.WriteOnly, SyntaxKind.WriteOnlyKeyword}, 31{ModifierFlags.Dim, SyntaxKind.DimKeyword}, 32{ModifierFlags.Const, SyntaxKind.ConstKeyword}, 33{ModifierFlags.WithEvents, SyntaxKind.WithEventsKeyword}, 34{ModifierFlags.Widening, SyntaxKind.WideningKeyword}, 35{ModifierFlags.Narrowing, SyntaxKind.NarrowingKeyword}, 36{ModifierFlags.Custom, SyntaxKind.CustomKeyword}, 37{ModifierFlags.ByVal, SyntaxKind.ByValKeyword}, 38{ModifierFlags.ByRef, SyntaxKind.ByRefKeyword}, 39{ModifierFlags.Optional, SyntaxKind.OptionalKeyword}, 40{ModifierFlags.ParamArray, SyntaxKind.ParamArrayKeyword} 44Public Function GetModifierFlags(member As StatementSyntax) As ModifierFlags 45Dim result As ModifierFlags = 0 50result = result Or ModifierFlags.Partial 52result = result Or ModifierFlags.Default 54result = result Or ModifierFlags.Private 56result = result Or ModifierFlags.Protected 58result = result Or ModifierFlags.Public 60result = result Or ModifierFlags.Friend 62result = result Or ModifierFlags.MustOverride 64result = result Or ModifierFlags.Overridable 66result = result Or ModifierFlags.NotOverridable 68result = result Or ModifierFlags.Overrides 70result = result Or ModifierFlags.MustInherit 72result = result Or ModifierFlags.NotInheritable 74result = result Or ModifierFlags.Static 76result = result Or ModifierFlags.Shared 78result = result Or ModifierFlags.Shadows 80result = result Or ModifierFlags.ReadOnly 82result = result Or ModifierFlags.WriteOnly 84result = result Or ModifierFlags.Dim 86result = result Or ModifierFlags.Const 88result = result Or ModifierFlags.WithEvents 90result = result Or ModifierFlags.Widening 92result = result Or ModifierFlags.Narrowing 94result = result Or ModifierFlags.Custom 102Public Function GetModifierFlags(parameter As ParameterSyntax) As ModifierFlags 103Dim result As ModifierFlags = 0 108result = result Or ModifierFlags.ByVal 110result = result Or ModifierFlags.ByRef 112result = result Or ModifierFlags.Optional 114result = result Or ModifierFlags.ParamArray 122Public Function UpdateModifiers(member As StatementSyntax, flags As ModifierFlags) As StatementSyntax 143Public Function UpdateModifiers(parameter As ParameterSyntax, flags As ModifierFlags) As ParameterSyntax

1470If (flags And ModifierFlags.Public) <> 0 Then 1472ElseIf (flags And ModifierFlags.Protected) <> 0 AndAlso 1473(flags And ModifierFlags.Friend) <> 0 Then 1475ElseIf (flags And ModifierFlags.Friend) <> 0 Then 1477ElseIf (flags And ModifierFlags.Protected) <> 0 Then 1479ElseIf (flags And ModifierFlags.Private) <> 0 Then 1487If (flags And ModifierFlags.WithEvents) <> 0 Then 1539Dim flags = member.GetModifierFlags() And Not (ModifierFlags.AccessModifierMask Or ModifierFlags.Dim Or ModifierFlags.WithEvents) 1542flags = flags Or ModifierFlags.Private 1544flags = flags Or ModifierFlags.Protected 1547flags = flags Or ModifierFlags.Friend 1550flags = flags Or ModifierFlags.Public 1552flags = flags Or ModifierFlags.Friend 1554flags = flags Or ModifierFlags.Protected Or ModifierFlags.Friend 1560flags = flags Or ModifierFlags.WithEvents 1564flags = flags Or ModifierFlags.Dim 2119If (flags And ModifierFlags.NotOverridable) <> 0 Then 2123If (flags And ModifierFlags.MustOverride) <> 0 Then 2127If (flags And ModifierFlags.Overridable) <> 0 Then 2131If (flags And ModifierFlags.Overrides) <> 0 Then 2155If (flags And ModifierFlags.Partial) <> 0 Then 2189flags = flags And Not ModifierFlags.Partial 2192flags = flags Or ModifierFlags.Partial 2311If (flags And ModifierFlags.Const) <> 0 Then 2315If (flags And ModifierFlags.ReadOnly) <> 0 Then 2343flags = flags And Not (ModifierFlags.Const Or ModifierFlags.ReadOnly Or ModifierFlags.Dim) 2346flags = flags Or ModifierFlags.Const 2348flags = flags Or ModifierFlags.ReadOnly 2352flags = flags Or ModifierFlags.Dim 2370If (flags And ModifierFlags.Partial) <> 0 Then 2406flags = flags And Not ModifierFlags.Partial 2409flags = flags Or ModifierFlags.Partial 2436flags = flags And Not ModifierFlags.Shared 2628flags = flags And Not (ModifierFlags.MustInherit Or ModifierFlags.NotInheritable Or ModifierFlags.Shadows) 2632flags = flags Or ModifierFlags.MustInherit 2634flags = flags Or ModifierFlags.NotInheritable 2638flags = flags Or ModifierFlags.Shadows 2659Return (flags And ModifierFlags.MustOverride) <> 0 2730flags = flags And Not (ModifierFlags.NotOverridable Or ModifierFlags.Shadows Or ModifierFlags.Overrides Or ModifierFlags.MustOverride Or ModifierFlags.Overridable) 2734flags = flags Or ModifierFlags.NotOverridable 2736flags = flags Or ModifierFlags.Shadows 2738flags = flags Or ModifierFlags.Overrides 2740flags = flags Or ModifierFlags.MustOverride 2742flags = flags Or ModifierFlags.Overridable 2744flags = flags Or ModifierFlags.NotOverridable Or ModifierFlags.Overrides 2746flags = flags Or ModifierFlags.Overridable Or ModifierFlags.Shadows 2751If (flags And ModifierFlags.MustOverride) <> 0 Then 2823flags = flags Or ModifierFlags.MustInherit 2825flags = flags Or ModifierFlags.MustOverride 2829flags = flags And Not ModifierFlags.MustInherit 2831flags = flags And Not ModifierFlags.MustOverride 2851Return (flags And (ModifierFlags.Const Or ModifierFlags.ReadOnly)) <> 0 2883flags = flags And Not ModifierFlags.Default 2886flags = flags Or ModifierFlags.Default 2932Dim flags = member.GetModifierFlags() And Not ModifierFlags.Dim 2935flags = flags Or ModifierFlags.Shared 2937flags = flags And Not ModifierFlags.Shared 2941flags = flags Or ModifierFlags.Dim