Access - formularios abiertos

buenos dias

alguien podria decirme como saber que formularos tengo abiertos en un momento dado.



gracias

Set dbs = Application.CurrentProject



For Each obj In dbs.AllForms
If CurrentProject.AllForms(obj.Name).IsLoaded Then MsgBox obj.Name



Next