(Resolvido)Descarregar todos formularios

[Matheus-vb6]

Boa noite

Estou desenvolvendo um aplicativo que tem a opção "Logoff", e gostaria de saber se tem como descarregar todos formularios (unload) usando o for each...

Abraços

Edited October 25, 2011 by Matheus-vb6

[Danleonhart]

Fala Matheus !

Faz assim cara:

Private Sub Form_Unload(Cancel As Integer)
Dim Frm As Form
For Each Frm In Forms
Unload Frm
Next Frm
End Sub

VALEU !

[Matheus-vb6]

Valeu cara, funcionou direitinho, só tive q adaptar com meu código, ficou assim

Private Sub menuLogoff_Click()
lblStatus.Caption = "1"
Dim frm As Form
For Each frm In Forms
If LCase(frm.Name) <> LCase("frmgeral") Then Unload frm
Next frm
frmLogin.Show
Unload Me
End Sub

Abraçao :D