Remove #pragma statements from VB Code.

Author: KlausLoeffelmann

src/Microsoft.VisualBasic.Forms/src/Microsoft/VisualBasic/ApplicationServices/WindowsFormsApplicationBase.vb

@@ -65,14 +65,10 @@ Namespace Microsoft.VisualBasic.ApplicationServices
 
         Private _appSynchronizationContext As SynchronizationContext
 
-#Disable Warning WFO5001 ' Type is for evaluation purposes only and is subject to change or removal in future updates.
-
         ' The ColorMode (Classic/Light, System, Dark) the user assigned to the ApplyApplicationsDefault event.
         ' Note: We aim to expose this to the App Designer in later runtime/VS versions.
         Private _colorMode As SystemColorMode = SystemColorMode.Classic
 
-#Enable Warning WFO5001
-
         ' We only need to show the splash screen once.
         ' Protect the user from himself if they are overriding our app model.
         Private _didSplashScreen As Boolean
@@ -747,15 +743,13 @@ Namespace Microsoft.VisualBasic.ApplicationServices
             '    Once all this is done, we give the User another chance to change the value by code through
             '    the ApplyDefaults event.
             ' Note: Overriding MinimumSplashScreenDisplayTime needs still to keep working!
-#Disable Warning WFO5001 ' Type is for evaluation purposes only and is subject to change or removal in future updates.
             Dim applicationDefaultsEventArgs As New ApplyApplicationDefaultsEventArgs(
                 MinimumSplashScreenDisplayTime,
                 HighDpiMode,
                 ColorMode) With
             {
                 .MinimumSplashScreenDisplayTime = MinimumSplashScreenDisplayTime
             }
-#Enable Warning WFO5001
 
             RaiseEvent ApplyApplicationDefaults(Me, applicationDefaultsEventArgs)
 
@@ -770,9 +764,6 @@ Namespace Microsoft.VisualBasic.ApplicationServices
             AsyncOperationManager.SynchronizationContext = New WindowsFormsSynchronizationContext()
 
             _highDpiMode = applicationDefaultsEventArgs.HighDpiMode
-
-#Disable Warning WFO5001 ' Type is for evaluation purposes only and is subject to change or removal in future updates.
-
             _colorMode = applicationDefaultsEventArgs.ColorMode
 
             ' Then, it's applying what we got back as HighDpiMode.
@@ -781,6 +772,7 @@ Namespace Microsoft.VisualBasic.ApplicationServices
             If dpiSetResult Then
                 _highDpiMode = Application.HighDpiMode
             End If
+
             Debug.Assert(dpiSetResult, "We could not set the HighDpiMode.")
 
             ' Now, let's set VisualStyles and ColorMode:
@@ -790,8 +782,6 @@ Namespace Microsoft.VisualBasic.ApplicationServices
 
             Application.SetColorMode(_colorMode)
 
-#Enable Warning WFO5001
-
             ' We'll handle "/nosplash" for you.
             If Not (commandLineArgs.Contains("/nosplash") OrElse Me.CommandLineArgs.Contains("-nosplash")) Then
                 ShowSplashScreen()

src/Microsoft.VisualBasic.Forms/tests/UnitTests/System/Windows/Forms/WindowsFormsApplicationBaseTests.vb

@@ -17,11 +17,9 @@ Namespace Microsoft.VisualBasic.Forms.Tests
         Public Sub Properties()
             UseCompatibleTextRendering.Should.BeFalse()
 
-#Disable Warning WFO5001 ' Type is for evaluation purposes only and is subject to change or removal in future updates.
             ColorMode.Should.Be(SystemColorMode.Classic)
             ColorMode = SystemColorMode.Dark
             ColorMode.Should.Be(SystemColorMode.Dark)
-#Enable Warning WFO5001
 
             EnableVisualStyles.Should.Be(False)
             EnableVisualStyles = True

src/System.Windows.Forms/System/Windows/Forms/Controls/Buttons/ButtonInternal/ButtonBaseAdapter.cs

@@ -545,7 +545,6 @@ internal void PaintField(
     /// <summary>
     ///  Draws the button's image.
     /// </summary>
-#pragma warning disable WFO5001 // Type is for evaluation purposes only and is subject to change or removal in future updates. Suppress this diagnostic to proceed.
     internal void PaintImage(PaintEventArgs e, LayoutData layout)
     {
         if (Application.IsDarkModeEnabled && Control.DarkModeRequestState is true && Control.BackgroundImage is not null)
@@ -569,7 +568,6 @@ internal void PaintImage(PaintEventArgs e, LayoutData layout)
             DrawImageCore(e.GraphicsInternal, Control.Image, layout.ImageBounds, layout.ImageStart, layout);
         }
     }
-#pragma warning restore WFO5001 // Type is for evaluation purposes only and is subject to change or removal in future updates. Suppress this diagnostic to proceed.
 
     internal static LayoutOptions CommonLayout(
         Rectangle clientRectangle,