Splash Screen will not load completely

running32
running32 used Ask the Experts™
on
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
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
High School Computer Science, Computer Applications, Digital Design, and Mathematics Teacher
Top Expert 2009
Commented:
Call DoEvents() after Show():

            Dim frmSplash As New frmSplash
            With frmSplash
                .MdiParent = Me.MdiParent
                .Show()
            End With
            Application.DoEvents()
            ' ... more code ....

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial