codice:
Dim x as New Collection
Comunque esiste già la collection Forms.

codice:
Dim I As Integer

For I = 0 To forms.Count - 1
    forms(I).Hide
Next I