Find No. of Instances Open

[arpan_de]

How do I find out how many instances of a particular Form are open?

I tried this but it gives a wrong result:

Dim frm As Form

For Each frm In Forms
    If (frm.Name = "Form1") Then
        MsgBox frm.Count
    End If
Next