Fechando todos os forms de uma vez (VB3 VB4)

Dica de como fechar todos os forms de uma vez:

codigo:


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