For I = Forms.Count - 1 to 0 Step -1 Unload Forms(I) ' Triggers QueryUnload and Form_Unload