Sub listarForms()
Dim frm As AccessObject

    For Each frm In CurrentProject.AllForms
        Debug.Print "Nombre: " & frm.Name
        Debug.Print "Cargado?: " & frm.IsLoaded
    Next
End Sub

Si utilizas Access 97, podrķas utilizar estas dos rutinas 
para lo mismo:


Sub listarForms97()
Dim db As DAO.Database
Dim cnt As DAO.Container
Dim doc As DAO.Document

    Set db = CurrentDb
    Set cnt = db.Containers("Forms")
    
    For Each doc In cnt.Documents
        Debug.Print "Nombre: " & doc.Name
        Debug.Print "Cargado?: " & IsLoaded(doc.Name)
    Next

End Sub

Function IsLoaded(nomForm As String) As Boolean
Dim frm As Form

    For Each frm In Forms
        If frm.Name = nomForm Then
            IsLoaded = True
            Exit Function
        End If
    Next
    
End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)