Add project files.

Author: Iridium-IO

CompactGUI.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 15
+VisualStudioVersion = 15.0.26730.16
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CompactGUI", "WindowsApp1\CompactGUI.vbproj", "{179404BE-643E-452C-B689-0C4DE78FF801}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{179404BE-643E-452C-B689-0C4DE78FF801}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{179404BE-643E-452C-B689-0C4DE78FF801}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{179404BE-643E-452C-B689-0C4DE78FF801}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{179404BE-643E-452C-B689-0C4DE78FF801}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {C7126FEA-3E26-4F84-8EC8-39CC096DA1E2}
+	EndGlobalSection
+EndGlobal

WindowsApp1/App.config

@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <configSections>
+      
+    </configSections>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
+    </startup>
+  
+  <System.Windows.Forms.ApplicationConfigurationSection>
+    <add key="DpiAwareness" value="PerMonitorV2" />
+    <add key="EnableWindowsFormsHighDpiAutoResizing" value="false" />
+  </System.Windows.Forms.ApplicationConfigurationSection>
+  
+</configuration>

WindowsApp1/ApplicationEvents.vb

@@ -0,0 +1,24 @@
+Namespace My
+    ' The following events are available for MyApplication:
+    ' Startup: Raised when the application starts, before the startup form is created.
+    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
+    ' UnhandledException: Raised if the application encounters an unhandled exception.
+    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
+    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
+    Partial Friend Class MyApplication
+        Private Sub AppStart(ByVal sender As Object,
+  ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
+            AddHandler AppDomain.CurrentDomain.AssemblyResolve, AddressOf ResolveAssemblies
+        End Sub
+
+        Private Function ResolveAssemblies(sender As Object, e As System.ResolveEventArgs) As Reflection.Assembly
+            Dim desiredAssembly = New Reflection.AssemblyName(e.Name)
+
+            If desiredAssembly.Name = "Ookii.Dialogs" Then
+                Return Reflection.Assembly.Load(My.Resources.Ookii_Dialogs)
+            Else
+                Return Nothing
+            End If
+        End Function
+    End Class
+End Namespace