IsFormLoad

Attribute VB_Name = "FormLoadedVisible"
Option Explicit
Public Function IsFormLoaded(ByVal FormName As String) As Boolean
Dim frm As Form
IsFormLoaded = False
For Each frm In Forms
If UCase(frm.Name) = UCase(FormName) Then
IsFormLoaded = True
End If
Next frm

Set frm = Nothing

End Function