Splash Screen will not load completely

I need to display a splash screen while the update queries are processing.  When I call the form only part of it displays.  It is like it is stuck!   How can I delay so that the full screen shows before the updates start.  Thanks



Dim frmSplash As New frmSplash
            Dim myParent = Me.MdiParent
     
            'replace Form1 with type of the MDI form
            With frmSplash
                .MdiParent = myParent
                .Show()
            End With
running32Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Mike TomlinsonConnect With a Mentor Middle School Assistant TeacherCommented:
Call DoEvents() after Show():

            Dim frmSplash As New frmSplash
            With frmSplash
                .MdiParent = Me.MdiParent
                .Show()
            End With
            Application.DoEvents()
            ' ... more code ....
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.