Dim frmChild As Form
 
    For Each frmChild In Forms
        If frmChild.Name <> frm_Main.Name Then 'frm_main ist die Hauptform
        frmChild.visible = true 'oder halt irgendwas anderes             
 
 
        End If
    Next