SAVOIR SI UNE FENETRE EST CHARGEE

'**************************************************************************
' Name       : xIsFormLoaded
' Purpose    : Test if a form is loaded
' Syntax     : xIsFormLoaded(TheForm)
' Parameters : TheForm : The form to test
' Return     : True or False
'**************************************************************************
Public Function xIsFormLoaded(ByVal FormName As String) As Boolean
    Dim intCount As Integer
    
    xIsFormLoaded = False
    FormName = UCase(FormName)
    For intCount = 0 To Forms.Count - 1
        If UCase(Forms(intCount).Name) = FormName Then
            xIsFormLoaded = True
            intCount = Forms.Count
        End If
    Next
End Function