Splash Screen [Resolved]

[teamdad]

I hat to keep harping on this subject, but I am using the code below as the startup.

Module Module1
    Dim frm1 As New Form1()
    Dim frm2 As New Form2()

    Public Sub Main()
        frm1.ShowDialog()
        frm2.ShowDialog()
    End Sub
End Module

and it works great, what I have been searching for is a means to load the splash (Form1) overtop of the main form (Form2) like Microsoft products do. Both forms at the same time but one in front of the other.

I tried setting Form1 to TopMost but that doesn't work either. Any thoughts?

[taxes]

Hi,

Module Module1
    Dim frm1 As New Form1()
    Dim frm2 As New Form2()
 
    Public Sub Main()
            Application.Run(frm1)
    End Sub
End Module

In the Load event of Form1 put

Dim frm2 as New Form2
Me.Show
frm2.ShowDialog

frm2, being the splash screen, will appear on top of frm1, so you will have to set the Location property of Form2 to get the appearance you require.