CloseAllForm2
Public Sub UnloadForms() Dim frm as integer frm = forms.count Do While f > 0 Unload Forms(frm -1) if frm = forms.count then exit do frm = frm -1 Loop End Sub
Public Sub UnloadForms()
Dim frm as integer
frm = forms.count
Do While f > 0
Unload Forms(frm -1)
if frm = forms.count then exit do
frm = frm -1
Loop
End Sub
( closeallform2.html )- by Paolo Puglisi
- Modifica del 17/12/2023