Descobrir se um formulário está aberto

Como descubro se um formulário está aberto ou não?

Autor: Dev Hashish

Passe o nome do formulário para a função abaixo. A função devolve True se o formulário estiver aberto e False se não.

'****** Início do Código ********
Function fIsLoaded(ByVal strFormName As String) As Integer
' Devolve 0 se o formulário estiver fechado ou -1 se estiver aberto
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            fIsLoaded = True
        End If
    End If
End Function
'****** Final do código ********