Public Function IsFormLoaded(ByVal fName As String) As Boolean
On Error GoTo Err_IsFormLoaded
 
Dim i As Integer
 
    IsFormLoaded = False
    For i = 0 To Forms.Count - 1
        If LCase$(Forms(i).Name) = LCase$(fName) Then
            IsFormLoaded = True
            Exit For
        End If
    Next i
 
Exit_IsFormLoaded:
    Exit Function
 
Err_IsFormLoaded:
    MsgBox err.Description
    Resume Exit_IsFormLoaded
 
End Function