fix closing

This commit is contained in:
Jonathan Jenne 2023-12-07 13:05:16 +01:00
parent 33f5bec8d0
commit 2d49e4704d
2 changed files with 7 additions and 2 deletions

View File

@ -28,9 +28,11 @@ Partial Class frmSplashScreen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.ClientSize = New System.Drawing.Size(365, 204)
Me.Name = "frmSplashScreen"
Me.Opacity = 0R
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.Text = "frmSplashScreen"
Me.ResumeLayout(False)

View File

@ -75,7 +75,10 @@ Public Class frmSplashScreen
End If
Dim oForm As New frmMain(State)
oForm.Show()
oForm.ShowDialog()
' Close this form after frmMain is closed
Close()
Catch ex As ApplicationException
Logger.Error(ex)