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 17/12/2023