Visual Basic - Ocultar formularios

Existe alguna sentencia que te permita ocultar todos los formularios excepto el MDI??
Gracias

form.visible=false ???

Lo que quiero es ocultar todos los formularios MDI child a la vez, sin tener que pasar uno por uno. ¿Es esto posible?
Gracias

Private Sub mCerrar_Click()

Dim X As Integer
For X = (Forms.Count - 1) To 1 Step -1
If TypeOf Forms(X) Is Form Then
Unload Forms(X)
End If
Next X

End Sub

Private Sub CierraFormularios()
Dim frm As Integer
frm = Forms.Count
Do While frm > 0
Unload Forms(frm - 1)
If frm = Forms.Count Then End
frm = frm - 1
Loop
End Sub

Si además no quieres dejarte ninguna BD abierta, a continuación del Loop, pon:

Dim ws As Workspace, db As Database, rs As Recordset
For Each ws In Workspaces
For Each db In ws.Databases
For Each rs In db.Recordsets
rs.Close
Set rs = Nothing
Next
db.Close
Set db = Nothing
Next
ws.Close
Set ws = Nothing
Next

Te lo cierrra absolutamente todo, formularios y BBDD

Saludos.

Pedro