Update Version 1.2

SW/20211125/AssessmentMgmt/Diverse Formulare/frmSplash.vb

@@ -0,0 +1,15 @@
+Public Class frmSplash
+
+    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+        Me.Close()
+    End Sub
+
+    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
+
+    End Sub
+
+    Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Me.lblVersion.Text = "Version " & Globals.clsapplication.sVersion.Value
+        Me.lblVersiondatum.text = Globals.Versionsdatum
+    End Sub
+End Class