VB.Net Ensure a form is displayed before continuing

Option Strict On
Option Explicit On

Imports System.Drawing.Imaging

Public Class Splash
#Region "Delegates "
    Private Delegate Sub CloseWindowDelegate()
#End Region
#Region "Variables "
    Private m_Alpha As Single = 0 ' Alpha on a 0-1 scale.
    Private m_DAlpha As Single = 0.05
    Private image1 As Bitmap = My.Resources.image_1
    Private image2 As Bitmap = My.Resources.image_2
    Private animating As Boolean
#End Region
    Public Sub New()

        InitializeComponent()

        ' Start the animation
        tmrDisplayFrame.Enabled = True
        tmrDisplayFrame.Start()

        Dim MainWindow As New MainForm(AddressOf CloseWindow)
        Dim t As New System.Threading.Thread(AddressOf MainWindow.Initialize)
        t.Start()

        While t.IsAlive
            System.Windows.Forms.Application.DoEvents()
        End While

        tmrDisplayFrame.Enabled = False
        tmrDisplayFrame.Stop()
        tmrDisplayFrame = Nothing

        While animating
            System.Windows.Forms.Application.DoEvents()
        End While

        MainWindow.Show()

    End Sub
#Region "Subs "
    Private Sub CloseWindow()
        If Me.InvokeRequired Then
            Dim shd As New CloseWindowDelegate(AddressOf CloseWindow)
            Me.Invoke(shd)
        Else
            Me.Close()
        End If

    End Sub
#End Region
#Region "Handlers "
    Private Sub tmrDisplayFrame_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrDisplayFrame.Tick
        animating = True

        System.Windows.Forms.Application.DoEvents()

        Dim image_attr As New ImageAttributes
        Dim cm As ColorMatrix

        Dim bm As New Bitmap(image1.Width, image1.Height)
        Dim gr As Graphics = Graphics.FromImage(bm)
        Dim rect As Rectangle = Rectangle.Round(image1.GetBounds(GraphicsUnit.Pixel))

        cm = New ColorMatrix(New Single()() { _
            New Single() {1.0, 0.0, 0.0, 0.0, 0.0}, _
            New Single() {0.0, 1.0, 0.0, 0.0, 0.0}, _
            New Single() {0.0, 0.0, 1.0, 0.0, 0.0}, _
            New Single() {0.0, 0.0, 0.0, 0.0, 0.0}, _
            New Single() {0.0, 0.0, 0.0, m_Alpha, 1.0}})
        image_attr.SetColorMatrix(cm)
        gr.DrawImage(image1, rect, 0, 0, image1.Width, image2.Width, GraphicsUnit.Pixel, image_attr)

        cm = New ColorMatrix(New Single()() { _
            New Single() {1.0, 0.0, 0.0, 0.0, 0.0}, _
            New Single() {0.0, 1.0, 0.0, 0.0, 0.0}, _
            New Single() {0.0, 0.0, 1.0, 0.0, 0.0}, _
            New Single() {0.0, 0.0, 0.0, 0.0, 0.0}, _
            New Single() {0.0, 0.0, 0.0, 1 - m_Alpha, 1.0}})
        image_attr.SetColorMatrix(cm)
        gr.DrawImage(image2, rect, 0, 0, image1.Width, image2.Width, GraphicsUnit.Pixel, image_attr)

        picResult.Width = image1.Width
        picResult.Height = image1.Height
        picResult.BackgroundImage = bm
        picResult.Refresh()

        m_Alpha += m_DAlpha
        If m_Alpha > 1 Then
            m_Alpha = 1
            m_DAlpha *= -1
        ElseIf m_Alpha < 0 Then
            m_Alpha = 0
            m_DAlpha *= -1
        End If
        System.Windows.Forms.Application.DoEvents()
        animating = False
    End Sub
#End Region

End Class

Select allOpen in new window

Option Strict On
Option Explicit On

Public Class MainForm
#Region "Delegates "
    Public Delegate Sub CloseSplashWindowDelegate()
#End Region
#Region "Variables "
    Private CloseSplashWindow As CloseSplashWindowDelegate
    Private WithEvents CloseSplashTimer As Timers.Timer

#End Region

    Public Sub New(ByVal _csw As CloseSplashWindowDelegate)
        InitializeComponent()

        CloseSplashWindow = _csw
    End Sub

#Region "Public Subs "
    Public Sub Initialize()
        Dim s As DateTime = Now.AddSeconds(15)
        While Now < s
            System.Windows.Forms.Application.DoEvents()
        End While
        CloseSplashTimer = New Timers.Timer
        With CloseSplashTimer
            .AutoReset = False
            .Interval = 1000
            .Start()
        End With
    End Sub
#End Region
#Region "Private Subs "
    Private Sub LoadExistingServers()

    End Sub
#End Region
#Region "Handlers "
    Private Sub AddNewServerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AddNewServerToolStripMenuItem.Click
       
    End Sub
    Private Sub RemoveCurrentServerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles RemoveCurrentServerToolStripMenuItem.Click

    End Sub
    Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
    Private Sub CloseSplashTimer_Elapsed(sender As Object, e As System.Timers.ElapsedEventArgs) Handles CloseSplashTimer.Elapsed
        CloseSplashWindow.Invoke()
    End Sub
#End Region

End Class

Select allOpen in new window