Fechando todos os forms

Fechando todos os forms

Para aplicações que não possuem MDI, código para fechar todos os formulários ativos

Sub UnloadAll ( )
Dim f As Integer
f = Forms.Count
Do While f > 0
Unload Forms(f-1)
If f = Forms.Count Then Exit Do
f = f – 1
Loop
End Sub

Posts Similares