VBA загружена форма

If CurrentProject.AllForms("FormName").IsLoaded Then
    ' Form is open
Else
  	' Form is closed
Endif
Saphirah