Public Function IsLoaded(strFormName As String) As Boolean
 
  Dim objForm As Form
 
  For Each objForm In VB.Forms
    If objForm.Name = strFormName Then
      IsLoaded = True
      Exit Function
    End If
  Next
 
End Function