How to suppress the status window shown by DatabaseUpdater

Hello John,
To solve this problem, you can access the WinApplication object, and execute the following code:

C#
if (winApplication.SplashScreen != null)  
    winApplication.SplashScreen.Stop();  

Visual Basic
If winApplication.SplashScreen IsNot Nothing Then  
    winApplication.SplashScreen.Stop()  
End If  

Does this suit you?
Thanks,
Dennis

Hello Guys
Sorry to resurect this but I am revisiting the admin program.
The code provided does not stop the dialog. Here is what I have (pretty much straight from the DBUpdater program)
        If Not FilesAreValid() Then
            Form.StatusMessage = "The Config file and/or Application executable cannot be found"
            Return
        End If
        Dim connectionString As String = String.Empty
        Dim modules As String = String.Empty
        Dim tablePrefixes As String = String.Empty
        GetDBUpdaterParameters(ConfigFileName, connectionString, modules, tablePrefixes)
        Dim localDLLPath As String = Path.GetDirectoryName(ConfigFileName)
        Dim diffsPath As String = Path.GetDirectoryName(ConfigFileName)
        Dim dmf As New DesignerModelFactory()
        Dim assembliesPath As String = String.Empty
        Try
            dmf.GetFileContainingApplicationType(ConfigFileName, ApplicationFileName, assembliesPath)
        Catch ex As DesignerModelFactory_FindApplicationAssemblyException
            Form.StatusMessage = "Unable to resolve Assemblies using given config path and name"
            Return
        Catch ex As Exception
            Form.StatusMessage = ex.Message
            Return
        End Try
        Dim application As XafApplication = dmf.CreateApplicationByConfigFile(ConfigFileName, ApplicationFileName, assembliesPath)
        If Not String.IsNullOrEmpty(connectionString) Then
            application.ConnectionString = connectionString
        Else
            Form.StatusMessage = "No ConnectionString was found in the config file"
            Return
        End If
        If Not String.IsNullOrEmpty(tablePrefixes) Then
            application.TablePrefixes = tablePrefixes
        End If
        Dim winApp As DevExpress.ExpressApp.Win.WinApplication = TryCast(application, WinApplication)
        If winApp IsNot Nothing AndAlso winApp.SplashScreen IsNot Nothing Then
            winApp.SplashScreen.Stop()
        End If
        application.Setup(application.ApplicationName, application.ConnectionString, modules.Split(";"))
        Dim dbUpdater As New DatabaseUpdater(application.ObjectSpaceProvider, application.Modules, application.ApplicationName)
        AddHandler dbUpdater.Progress, AddressOf dbUpdater_Progress
        Dim cError As CompatibilityError = dbUpdater.CheckCompatibility()
        If cError IsNot Nothing Then
            ' Analyse the message
        Else
            Form.StatusMessage = "The Database does not need updating"
        End If
        application.Dispose()
winApp is valid and the call to SplashScreen.Stop() runs but the "Loading" message does not disappear eaver after the application is disposed!
Any ideas?
Many thanks
John