Verifica se un Form e gia caricato

Public Function isLoaded (frm As Form) As Boolean
Dim i As Integer
isLoaded = False
For i = 0 To Forms.Count - 1
If Forms(i) Is frm Then
isLoaded = True
Exit Function
End If
Next
End Function