CloseAllParent
Private Sub mnuCloseAll_Click() Dim i As Integer While Forms.Count > 1 i = Forms.Count - 1 If Forms(i).MDIChild Then Unload Forms(i) Wend End Sub
Private Sub mnuCloseAll_Click()
Dim i As Integer
While Forms.Count > 1
i = Forms.Count - 1
If Forms(i).MDIChild Then Unload Forms(i)
Wend
End Sub
(closeallparent.html)- by Paolo Puglisi - Modifica del 25/3/2019