switching forms

[pea33nut]

I have a main form that I was using. Now I created a Splash screen to jazz up my program. How to get my splash screen to load up first?

[pea33nut]

Anyone??

[Negative0]

Project->Properties->Startup Object

[pea33nut]

How do I set this up so my Main form displays after my splash screens timer expires?

Private Sub tmrAsiSplash_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrAsiSplash.Tick

Me.Close()

End Sub

Private Sub frmAsiSplash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Main As New frmMain
Main.Show()

End Sub

[Negative0]

Private Sub tmrAsiSplash_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrAsiSplash.Tick
 
Dim Main As New frmMain
Main.Show()
Me.Close()
 
End Sub
 
Private Sub frmAsiSplash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
 
End Sub

[pea33nut]

It Just shuts the application down?

[Negative0]

Create a new module and add a Sub Main in there. Change your startup object to Sub Main.

In sub main just have:

Sub Main()
dim f as new frmAsiSplash
f.ShowDialog()
dim fMain as new frmMain
fMain.showDialog()
 
End sub

Then in frmAsiSplash, just have this:

Private Sub tmrAsiSplash_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrAsiSplash.Tick
 
Dim Main As New frmMain
Main.Show()
Me.Close()
 
End Sub

[pea33nut]

That worked but I was in some type of loop. my main form kept popping up ever few seconds.

[Negative0]

Take the form main stuff out of the Tick event.