Forms control via Startup Class.

[Danny J]

Ok, I have a splash and a class. as default, it displays the splash before doing anything else. then after it has completed its tasks in Sub Main, I want it to close the splash and open the main form. But the splash form doesn't close!!! what do I do??

[hellswraith]

Start by posting your Main sub so we can not 'shoot from the hip' to solve your problem.

[Danny J]

Shared Sub main()
        Try
            Application.EnableVisualStyles()
            Dim msg As New frmMSG
            Dim splash As New frmSplash
            Dim s As New StartUp
            Application.Run(splash)
            
        ' Do some loading code
 
            splash.Close()
            Dim main As New frmMain
            Application.Run(main)
        Catch
            MsgBox("An error has occured. Program may continue to run, but saftey measures presist to close this application." & vbLf & vbLf & "Click OK to terminate the application.", MsgBoxStyle.Critical + MsgBoxStyle.OKOnly, "Error " & CType(Err.Number, String))
            Debug.Write("Error " & CType(Err.Number, String) & " occured." & vbLf & "Error Information: " & Err.Description & " " & Err.Source)
            End
        End Try
    End Sub

[hellswraith]

    
Shared Sub main()
        Try
            Application.EnableVisualStyles()
            Dim msg As New frmMSG
            Dim splash As New frmSplash
            Dim s As New StartUp

            splash.Show()
            
	    ' Do some loading code

            splash.Close()
            Dim main As New frmMain
            Application.Run(main)
            'or
            'main.ShowDialog()
        Catch
            MsgBox("An error has occured. Program may continue to run, but saftey measures presist to close this application." & vbLf & vbLf & "Click OK to terminate the application.", MsgBoxStyle.Critical + MsgBoxStyle.OKOnly, "Error " & CType(Err.Number, String))
            Debug.Write("Error " & CType(Err.Number, String) & " occured." & vbLf & "Error Information: " & Err.Description & " " & Err.Source)
            End
        End Try
    End Sub