IsFormVisible

Attribute VB_Name = "FormLoadedVisible"

Option Explicit

Public Function IsFormVisible(ByVal FormName As String) As Boolean
Dim frm As Form
IsFormVisible = False

For Each frm In Forms
If UCase(frm.Name) = UCase(FormName) Then
If frm.Visible = True Then
IsFormVisible = True
End If
End If
Next frm
Set frm = Nothing
End Function