Закрываются все окна при закрытии одной

Dim New As New Form2()
New.ShowDialog() ' открываю формы

Imports System.Timers
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
       MyBase.OnLoad(e)
       Dim tmr As New System.Timers.Timer()
       tmr.Interval = 5000
       tmr.Enabled = True
       tmr.Start()     
       AddHandler tmr.Elapsed, AddressOf OnTimedEvent
 
 
   End Sub
   Private Delegate Sub CloseFormCallback()
 
   Private Sub CloseForm()
       If InvokeRequired Then
           Dim d As New CloseFormCallback(AddressOf CloseForm)
           Invoke(d, Nothing)
       Else
           Close()
       End If
   End Sub
 
   Private Sub OnTimedEvent(ByVal sender As Object, ByVal e As ElapsedEventArgs)
       CloseForm()
   End Sub

Private Sub newForm()
        Dim New As New Form2()
        NewStiker.Texts = Message
        New.Show()
    End Sub

 tmr.Enabled = True
        tmr.Start()

New.ShowDialog()

Private Sub newForm()
        Dim New As New Form2()
        New.Show() ' вызываю тут
    End Sub

  Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
        Dim tmr As New System.Timers.Timer()
        tmr.Interval = 5000
        tmr.Enabled = True
        tmr.Start()
        AddHandler tmr.Elapsed, AddressOf OnTimedEvent
        AddHandler tick, AddressOf dsa
    End Sub
 
    Private Delegate Sub CloseFormCallback()
 
    Event tick()
 
    Sub dsa()
        Me.BeginInvoke(New MethodInvoker(AddressOf CloseForm))
    End Sub
 
    Private Sub CloseForm()
        Close()
    End Sub
 
    Private Sub OnTimedEvent(ByVal sender As Object, ByVal e As ElapsedEventArgs)
        RaiseEvent tick()
    End Sub

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim [New] As New Form2()
        [New].Show() ' открываю формы
        [New].Timer1.Start()
    End Sub
End Class

Public Class Form2
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Close()
    End Sub
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 5000
    End Sub
End Class

 Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
form1.text = timer1.interval.tostring
        Close()
    End Sub

Public Class Form2
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
static count_ as byte = 0
form1.text = count_.Tostring()
if count_ = 5 then sender.stop() : closeForm()
count_ = count_ +1
    End Sub
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
    End Sub
End Class

 Private Sub Timer_CloseNotificationform_Tick(sender As Object, e As EventArgs) Handles Timer_CloseNotificationform.Tick
        Timer_CCloseNotificationform.Interval = Timer_CloseNotificationform.Interval - 1
        If Timer_CloseNotificationform.Interval = 1 Then
            Me.Close
        End If
 
    End Sub