Displaying a Splash Form in a background thread

IN SUB MAIN:
Public Sub Main()
        Dim mBackGroundThreadWorker As New System.ComponentModel.BackgroundWorker
 
        With mBackGroundThreadWorker
            .WorkerReportsProgress = False
            .WorkerSupportsCancellation = True
            ' Set the address of the procedure to kick off the thread and run
            ' the method that we need to run in the thread.
            AddHandler .DoWork, AddressOf BackgroundWorker_DoWork
            ' Set the address of the procedure to run when the thread has completed
            'AddHandler .RunWorkerCompleted, AddressOf BackgroundWorker_RunWorkerCompleted
            ' tell the thread to start running.  This causes the "DoWork" procedure to
            ' be called.
            .RunWorkerAsync()
        End With
 
Private Sub BackgroundWorker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
        ' Get the BackgroundWorker object that raised this event.
        Dim worker As System.ComponentModel.BackgroundWorker = CType(sender, System.ComponentModel.BackgroundWorker)
 
        e.Result = DisplaySplashForm
    End Sub
 
    Private Function DisplaySplashForm() As Integer
        Dim splashForm As SplashStartup
 
        ' Call the function to execute in the thread.
        splashForm = New SplashStartup
        With splashForm
            .StartPosition = FormStartPosition.CenterScreen
            .FormBorderStyle = FormBorderStyle.None
            .TopMost = True
            .Show()
        End With
 
        Return 1
 
    End Function
.
.
.
  Dim mainMDI As New GUI.MDI(fullName, usersId, cultureKey, _
            domainAccount, privilegeKeyString, privilegeNameString, _
            plantId, plantName, plantNumber, allPlantPrivsForUser, mBackGroundThreadWorker)
        Application.Run(mainMDI)
    End Sub
 
 
 
IN MDI:
Private Sub MDI_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
.
.
.
 
            If Not mSplashBackGroundThreadWorker Is Nothing Then mSplashBackGroundThreadWorker.CancelAsync()
    End Sub