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

[westconn1]

Dim frm As Form, frmcnt as long
 
For Each frm In Forms
    If (frm.Name = "Form1") Then
       frmcnt = frmcnt + 1
    End If
msgbox "Number of forms open is " & frmcnt
Next