fbpx

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

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

This site uses Akismet to reduce spam. Learn how your comment data is processed.