display splash problem

[menyki]

am designing a software. in the software i want the splash to display for sometime, say 30 secons then it will close and the main form will come up.

i included timer control in the splash form i designed but my problem is that it continues displaying main form continuesly without stop the (i.e. it displays many main form) the code is as shown below

Private Sub Timer1_Tick_4(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim mainForm As New mainForm
        Me.Visible = False
        mainForm.Visible = True
    End Sub

already i have set the timer property as follow
Enable = true
interval = 3000

[dip_developer]

am designing a software. in the software i want the splash to display for sometime, say 30 secons then it will close and the main form will come up.

i included timer control in the splash form i designed but my problem is that it continues displaying main form continuesly without stop the (i.e. it displays many main form) the code is as shown below

Private Sub Timer1_Tick_4(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim mainForm As New mainForm
Me.Visible = False
mainForm.Visible = True
End Sub

already i have set the timer property as follow
Enable = true
interval = 3000

1.Declare a Timer variable with events and Form variable like this

Private WithEvents myTimer1 As Timers.Timer
Dim myFrm as mainForm

2.Declare a function SetUpTimer() like this

 
Public Sub SetUpTimer()
Try
myTimer1 = New Timers.Timer
With myTimer1
.AutoReset = False
.Interval = 3000
.Start()
End With
Catch obEx As Exception
Throw obEx
End Try
End Sub
 

3.In the Timer_Elapsed event write following code

 
Me.Close()
myFrm = New mainForm
myFrm.ShowDialog()
 

4. In the Load event of Splash form call SetUpTimer()

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