another problem with splash screens

i am using the code below and the problem is is that when it open the next form it doesnt close the splash screen any ideas why??? Private Sub splashform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load splashtimer.Start() End Sub Public Sub splashtimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles splashtimer.Tick splashtimer.Stop() Dim raceform As New RaceTimesform raceform.ShowDialog() Me.Close() End Sub