form loaded

hi friends,

how it identify whether a form is loaded or not at runtime....

thanx

VB Code:

Public Function IsFormLoaded(ByVal sFormName As String) As Boolean
    Dim frm As Form
    For Each frm In Forms
        If frm.Name = sFormName Then
            IsFormLoaded = True
            Exit For
        End If
    Next
End Function