[Shade0001]

Dim formsToClose As New List(Of Form)()
        For Each form As Form In Application.OpenForms
            If form.Name <> "home" Then
                formsToClose.Add(form)
            End If
        Next
        For Each formToClose As Form In formsToClose
            formToClose.Close()
        Next