Access - Como puedo evaluar si un formulario esta averto

Como puedo evaluar desde vb si un formulario se encuentra activo o no con iun if then else? espera me puedan ayudar amigos

if CurrentProject.AllForms("Formulario1").IsLoaded = True then
bla bla bla

Saludos,
Javi.

Hola
Esta función viene en Neptuno.mdb
Function EstáCargado(ByVal txtNombreFormulario As String) As Boolean
' Devuelve Verdadero si se ha cargado el formulario especificado.

Const conObjetoEstaCerrado = 0
Const conModoDiseño = 0

If SysCmd(acSysCmdGetObjectState, acForm, txtNombreFormulario) <> conObjetoEstaCerrado Then
If Forms(txtNombreFormulario).CurrentView <> conModoDiseño Then
EstáCargado = True
End If
End If

End Function

Victoria

Muchas gracias no saben cuanto me ayudaron los dos gracias :)