Tüm Formlar Kapansın

Çok sayıda açık form içeren uygulamalardaki tüm formları bir kerede kapatmak mı istiyorsunuz. İşte aşağıda bu işi yapan kod parçası. 

Public Sub UnloadAllForms(sFormName As String)
Dim Form As Form
   For Each Form In Forms
      If Form.Name <> sFormName Then
         Unload Form
         Set Form = Nothing
      End If
   Next Form
End Sub

Aşağıdaki kodu Ana formunuzun Form_Unload olayına yerleştirin. 

Call UnloadAllForms Me.Name