Sub Command1_Click()
Dim Frm As Form
For Each Frm In Forms
If Frm.Name <> Me.Name Then
‘fecha todos forms exceto o chamador (Pai-MDI Form)
Unload Frm
End If
Next Frm
End Sub
Compartilhe :Estilizando Texto com CSS Aprenda a usar propriedades CSS para estilizar texto, incluindo font-family, font-size, color, font-weight, line-height, text-align,…
Compartilhe :Ferramentas Essenciais para Desenvolvimento e Depuração de HTML Descubra ferramentas indispensáveis como o inspetor de elementos do navegador e…