NPSF3000 Simple VB Splash Screen Example

''  VB Splash Screen Loading.

''  All rights NPSF3000
''  Free for Educational/Personal use, Attribution required.
''  Provided at end user risk, no responsibility for any damage will be accepted.

''  This is based on a 'hangman' project. It may not be best practice.  Lots of potentially useful stuff has been cut, as this is to help for a school project.

    '' On the 'main' form load.

    Private Sub Load_Client(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    '' Make main form invisible, start splash screen.

        Me.Visible = False
        Dim splash As New Splash
        Dim startTime As Date = Now()
        splash.Show()

       '' Do Stuff


    '' Finish Displaying Splash Screen.
        Dim time_elapsed As Integer = Now().Millisecond - startTime.Millisecond
        If time_elapsed < 3000 Then Threading.Thread.Sleep(3000 - time_elapsed)
        splash.Close()
        Me.Visible = True

    End Sub