Trying to close all opened forms in visual basic

Close all but current form:

My.Application.OpenForms.Cast(Of Form)() _
              .Except({Me}) _
              .ToList() _
              .ForEach(Sub(form) form.Close())

Close application normally:

Application.Exit()

Force application to exit:

Environment.Exit(1)