|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Fechar todos os forms abertos (simples)
|
 |
|
|
|
Postada em 16/3/2007 por LCRamos
Public Function FECHAFORM()
Dim iFORM As Integer
iFORM = 0
For iFORM = (Forms.Count - 1) To 0 Step -1
Unload Forms(iFORM)
Next iFORM
End Function
Chame antes do End, em qualquer Formulário, de preferencia no MDI.
FECHAFORM
vlu//
|
|
|
|
|
