Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim frmMainmenu As New frmMDI
frmMainmenu.Update()
End Sub

Private Sub TimerLast_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerLast.Tick
TimerLast.Enabled = False
frmMDI.Show()
Me.Hide()
End Sub