Moved all "test" projects into a separate folder to clarify what is part of the runtime versus what isn't - these projects have also been renamed to clarify what they are for.

Added "stub" code for several Windows.Forms related functionality so that the original code can be kept more intact - can possibly utilize these to create cross-platform implementations?
Code cleanup.
Worked on getting as many tests working as possible - now down to 5 that aren't working.  Three of these are presenting themselves as "real head scratchers" (LateIndexSet, 2 of the 8 Asc/Chr Double Byte).

Author: DualBrain

Community.VisualBasic.Tests/Community.VisualBasic.Tests.vbproj

@@ -23,7 +23,7 @@
   </ItemGroup>
 
   <ItemGroup>
-    <ProjectReference Include="..\Community.VisualBasic\Community.VisualBasic\Community.VisualBasic.vbproj" />
+    <ProjectReference Include="..\Community.VisualBasic\Community.VisualBasic.vbproj" />
   </ItemGroup>
 
 </Project>

Community.VisualBasic.Tests/Community/VisualBasic/FileIO/FileSystemTests.vb

@@ -116,6 +116,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
       Next
     End Sub
 
+#If TARGET_WINDOWS Then
+
     '<ConditionalFact(NameOf(ManualTestsEnabled))>
     '<PlatformSpecific(TestPlatforms.Windows)>
     <Fact>
@@ -135,6 +137,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
       Next
     End Sub
 
+#End If
+
     '<PlatformSpecific(TestPlatforms.AnyUnix)>
     <Fact>
     Public Sub CopyDirectory_SourceDirectoryName_DestinationDirectoryName_UIOptionUnix()
@@ -204,6 +208,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
 
     End Sub
 
+#If TARGET_WINDOWS Then
+
     '<ConditionalFact(NameOf(ManualTestsEnabled))>
     '<PlatformSpecific(TestPlatforms.Windows)>
     <Fact>
@@ -241,6 +247,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
 
     End Sub
 
+#End If
+
     <Fact>
     Public Sub CreateDirectory_Directory()
       Dim FullPathToNewDirectory As String = IO.Path.Combine(TestDirectory, "NewDirectory")
@@ -326,6 +334,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
 
     End Sub
 
+#If TARGET_WINDOWS Then
+
     '<ConditionalFact(NameOf(ManualTestsEnabled))>
     '<PlatformSpecific(TestPlatforms.Windows)>
     <Fact>
@@ -360,6 +370,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
 
     End Sub
 
+#End If
+
     <Fact>
     Public Sub DeleteFile_File()
 
@@ -581,6 +593,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
       IO.File.Delete(TempFile)
     End Sub
 
+#If TARGET_WINDOWS Then
+
     '<ConditionalFact(NameOf(ManualTestsEnabled))>
     '<PlatformSpecific(TestPlatforms.Windows)>
     <Fact>
@@ -607,6 +621,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
       Next
     End Sub
 
+#End If
+
     <Fact>
     Public Sub MoveDirectory_SourceDirectoryName_DestinationDirectoryName()
       Dim FullPathToSourceDirectory As String = IO.Path.Combine(TestDirectory, "SourceDirectory")
@@ -731,6 +747,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
       Assert.[True](HasExpectedData(SourceFileNameWithPath, SourceData))
     End Sub
 
+#If TARGET_WINDOWS Then
+
     '<ConditionalFact(NameOf(ManualTestsEnabled))>
     '<PlatformSpecific(TestPlatforms.Windows)>
     <Fact>
@@ -749,6 +767,8 @@ Namespace Global.Community.VisualBasic.FileIO.Tests
       Assert.[True](IO.File.Exists(SourceFileNameWithPath))
     End Sub
 
+#End If
+
     ' Not tested:
     '   public Microsoft.VisualBasic.FileIO.TextFieldParser OpenTextFieldParser(string file) { throw null; }
     '   public Microsoft.VisualBasic.FileIO.TextFieldParser OpenTextFieldParser(string file, params int[] fieldWidths) { throw null; }

Community.VisualBasic.Tests/NewLateBindingTests.vb

@@ -3,7 +3,7 @@
 
 Option Compare Text
 Option Explicit On
-Option Infer Off
+Option Infer On
 Option Strict On
 
 Imports System.Collections.Generic
@@ -87,10 +87,11 @@ Namespace Global.Community.VisualBasic.CompilerServices.Tests
     End Class
 
     Public Shared Iterator Function LateCall_OptionalValues_Data() As IEnumerable(Of Object())
-      ' TODO Check: Local function was replaced with Lambda
-      Dim CreateData As Func(Of String, Object(), Type(), String, Object()) = Function(memberName As String, arguments As Object(), typeArguments As Type(), expectedValue As String) As Object()
-                                                                                Return New Object() {memberName, arguments, typeArguments, expectedValue}
-                                                                              End Function
+
+      Dim CreateData = Function(memberName As String, arguments As Object(), typeArguments As Type(), expectedValue As String) As Object()
+                         Return New Object() {memberName, arguments, typeArguments, expectedValue}
+                       End Function
+
       ' If System.Type.Missing is used for a parameter with type parameter type,
       ' System.Reflection.Missing is used in type inference. This matches .NET Framework behavior.
 
@@ -141,15 +142,14 @@ Namespace Global.Community.VisualBasic.CompilerServices.Tests
       ' NewLateBinding.LateCall() corresponds to a call to the member when using late binding:
       '   Dim instance = New OptionalValuesType()
       '   instance.Member(arguments)
-      Dim actualValue As Object = NewLateBinding.LateCall(
-          Instance:=New OptionalValuesType,
-          Type:=Nothing,
-          MemberName:=memberName,
-          Arguments:=arguments,
-          ArgumentNames:=Nothing,
-          TypeArguments:=typeArguments,
-          CopyBack:=Nothing,
-          IgnoreReturn:=True)
+      Dim actualValue = NewLateBinding.LateCall(Instance:=New OptionalValuesType,
+                                                Type:=Nothing,
+                                                MemberName:=memberName,
+                                                Arguments:=arguments,
+                                                ArgumentNames:=Nothing,
+                                                TypeArguments:=typeArguments,
+                                                CopyBack:=Nothing,
+                                                IgnoreReturn:=True)
       Assert.Equal(expectedValue, actualValue)
     End Sub
 

Community.VisualBasic.Tests/TestUtilities/System/PlatformDetection.vb

@@ -238,7 +238,11 @@ Namespace Global.Community
       End Get
     End Property
 #Else
-        public static bool IsReflectionEmitSupported => true;
+    Public ReadOnly Property IsReflectionEmitSupported As Boolean
+      Get
+        Return True
+      End Get
+    End Property
 #End If
 
     Public ReadOnly Property IsInvokingStaticConstructorsSupported As Boolean
@@ -432,7 +436,7 @@ Namespace Global.Community
         If interopGlobalization IsNot Nothing Then
           Dim methodInfo1 As MethodInfo = interopGlobalization.GetMethod("GetICUVersion", BindingFlags.NonPublic Or BindingFlags.[Static])
           If methodInfo1 IsNot Nothing Then
-            version1 = CInt(Fix(methodInfo1.Invoke(Nothing, Nothing)))
+            version1 = CInt(Community.VisualBasic.Fix(methodInfo1.Invoke(Nothing, Nothing)))
           End If
         End If
       Catch
@@ -491,7 +495,7 @@ Namespace Global.Community
     Private Function OpenSslGetTlsSupport(protocol As SslProtocols) As Boolean
       Debug.Assert(IsOpenSslSupported)
 
-      Dim ret As Integer = Interop.OpenSsl.OpenSslGetProtocolSupport(CInt(Fix(protocol)))
+      Dim ret As Integer = Interop.OpenSsl.OpenSslGetProtocolSupport(CInt(Community.VisualBasic.Fix(protocol)))
       Return ret = 1
     End Function
 

Community.VisualBasic/Community.VisualBasic.sln renamed to Community.VisualBasic.sln

@@ -5,15 +5,23 @@ VisualStudioVersion = 16.0.30711.63
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Community.VisualBasic", "Community.VisualBasic\Community.VisualBasic.vbproj", "{5C7333BA-E36F-4918-95F0-82BF3AE6F6E3}"
 EndProject
-Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "ConsoleTestApp", "..\ConsoleTestApp\ConsoleTestApp.vbproj", "{0D2B402A-8913-40F5-9361-0B2EC828338B}"
+Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "net5-console", "ProjectTypeTests\net5-console\net5-console.vbproj", "{0D2B402A-8913-40F5-9361-0B2EC828338B}"
 EndProject
-Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "WinFormsTestApp", "..\WinFormsTestApp\WinFormsTestApp.vbproj", "{F331BCC6-7773-47D3-89FE-946341D39F73}"
+Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "net5-windows", "ProjectTypeTests\net5-windows\net5-windows.vbproj", "{F331BCC6-7773-47D3-89FE-946341D39F73}"
 EndProject
-Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "ClassLibraryTest", "..\ClassLibraryTest\ClassLibraryTest.vbproj", "{7DD0482C-2D6E-47B0-BA0C-28D5589D70C7}"
+Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "netstandard2_0", "ProjectTypeTests\netstandard2_0\netstandard2_0.vbproj", "{7DD0482C-2D6E-47B0-BA0C-28D5589D70C7}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ConsoleTestFramework", "ConsoleTestFramework\ConsoleTestFramework.vbproj", "{95EED873-FA2D-4A31-815A-15D74D6AEEA1}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "net4-console", "ProjectTypeTests\net4-console\net4-console.vbproj", "{95EED873-FA2D-4A31-815A-15D74D6AEEA1}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Community.VisualBasic.Tests", "..\Community.VisualBasic.Tests\Community.VisualBasic.Tests.vbproj", "{78554D4F-CE23-411F-9660-E016AE00C956}"
+Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Community.VisualBasic.Tests", "Community.VisualBasic.Tests\Community.VisualBasic.Tests.vbproj", "{78554D4F-CE23-411F-9660-E016AE00C956}"
+EndProject
+Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "ProjectTypeTests", "ProjectTypeTests", "{2D1C234B-3890-48B7-9338-980BCD043856}"
+EndProject
+Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution Items", "{59F85EF7-136F-40E6-816D-BB14EAEC44DC}"
+	ProjectSection(SolutionItems) = preProject
+		LICENSE = LICENSE
+		README.md = README.md
+	EndProjectSection
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -49,6 +57,12 @@ Global
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
 	EndGlobalSection
+	GlobalSection(NestedProjects) = preSolution
+		{0D2B402A-8913-40F5-9361-0B2EC828338B} = {2D1C234B-3890-48B7-9338-980BCD043856}
+		{F331BCC6-7773-47D3-89FE-946341D39F73} = {2D1C234B-3890-48B7-9338-980BCD043856}
+		{7DD0482C-2D6E-47B0-BA0C-28D5589D70C7} = {2D1C234B-3890-48B7-9338-980BCD043856}
+		{95EED873-FA2D-4A31-815A-15D74D6AEEA1} = {2D1C234B-3890-48B7-9338-980BCD043856}
+	EndGlobalSection
 	GlobalSection(ExtensibilityGlobals) = postSolution
 		SolutionGuid = {AB9112E2-7B45-4CF7-9583-08415020ED66}
 	EndGlobalSection