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

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