If you are using at most one instance of each form, its fairly easy. Look
through the Forms collection, checking for the Name of the form you want to
test. For example
Public Function IsLoaded(ByVal sForm As String) As Boolean
Dim f as Form
IsLoaded = False 'guilty until proven innocent
For Each f in Forms
If f.Name = sForm Then
IsLoaded = True
Exit Sub
End If
Next f
End Function