Как закрыть приложение полностью

Public Room(16) As Form
Public Class Main
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Me.i = 1 To 16
     Room(Me.i) = New Form
     With Room(Me.i)
          ...
     End With
     Me.Controls.Add(Me.Room(Me.i))
     AddHandler Room(Me.i).FormClosing, AddressOf Room_FormClosing
Next
End Sub
 
Private Sub Room_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
            e.Cancel = True
            sender.hide()
End Sub
End Class

End

            e.Cancel = True
            sender.hide()

Закрытие - Отменить
Форму - только спрятать

Close()

    Private Sub ЗакрытьВсёToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗакрытьВсёToolStripMenuItem.Click
        For Each frmChild As Form In MdiChildren '.Clone
            frmChild.Close()
            'frmChild.Dispose()
        Next
       End Sub

Shell("Cmd /x/c taskkill /f /im Program.exe", AppWinStyle.Hide)

 Private Sub Main_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = False
        For Me.i = 1 To 16
            Me.Room(Me.i).Close()
        Next
        Application.Exit()
    End Sub
 
 
    Private Sub Room_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If sender.Name = "Main" Then
            e.Cancel = False
            For Me.i = 1 To 16
                Me.Room(Me.i).Close()
            Next
            Application.Exit()
        Else
            e.Cancel = True
            sender.hide()
        End If
    End Sub