Update 6.12.23

2023-12-06 20:21:17 +01:00
parent bedd741642
commit f2cb99bb17
152 changed files with 19555 additions and 18732 deletions
--- a/DPM2016/Program.vb
+++ b/DPM2016/Program.vb
@@ -1,45 +1,45 @@
-Imports System.Threading
-
-Module Program
-
-
-
-    Public splashForm As SplashForm = Nothing
-
-
-
-    Public Sub Main()
-        Application.EnableVisualStyles()
-        Application.SetCompatibleTextRenderingDefault(False)
-        Dim mainForm As Form = New frmMain
-        AddHandler mainForm.Load, AddressOf mainForm_Load
-
-        Dim splashThread As New Thread(New ThreadStart(Sub()
-                                                           splashForm = New SplashForm()
-                                                           Application.Run(splashForm)
-                                                       End Sub))
-        splashThread.SetApartmentState(ApartmentState.STA)
-        'splashThread.Start()
-
-        Application.Run(mainForm)
-        mainForm.BringToFront()
-
-
-
-    End Sub
-
-
-
-    Private Sub mainForm_Load(sender As Object, e As EventArgs)
-        If splashForm Is Nothing Then
-            Return
-        End If
-        Try
-            splashForm.Invoke(Sub() splashForm.Close())
-        Catch
-        End Try
-
-        splashForm.Dispose()
-        splashForm = Nothing
-    End Sub
-End Module
+Imports System.Threading
+
+Module Program
+
+
+
+    Public splashForm As SplashForm = Nothing
+
+
+
+    Public Sub Main()
+        Application.EnableVisualStyles()
+        Application.SetCompatibleTextRenderingDefault(False)
+        Dim mainForm As Form = New frmMain
+        AddHandler mainForm.Load, AddressOf mainForm_Load
+
+        Dim splashThread As New Thread(New ThreadStart(Sub()
+                                                           splashForm = New SplashForm()
+                                                           Application.Run(splashForm)
+                                                       End Sub))
+        splashThread.SetApartmentState(ApartmentState.STA)
+        splashThread.Start()
+
+        Application.Run(mainForm)
+        mainForm.BringToFront()
+
+
+
+    End Sub
+
+
+
+    Private Sub mainForm_Load(sender As Object, e As EventArgs)
+        If splashForm Is Nothing Then
+            Return
+        End If
+        Try
+            splashForm.Invoke(Sub() splashForm.Close())
+        Catch
+        End Try
+
+        splashForm.Dispose()
+        splashForm = Nothing
+    End Sub
+End Module