Private Sub Form_Unload(Cancel As Integer)
Dim intCount As Integer While Forms.Count > 1 '// Find first form besides "me" to unload intCount = 0 While Forms(intCount).Caption = Me.Caption intCount = intCount + 1 Wend Unload Forms(intCount) Wend '// Last thing to be done... Unload Me End End Sub |