Function FormCaricata(nomeForm As String) As Boolean

FormCaricata = False
For i = 0 To Forms.Count - 1
If UCase(Forms(i).Name) = UCase(nomeForm) Then
FormCaricata = True
Exit For
End If
Next
End Function