Originariamente inviato da gendarme
Il risultato non cambia.. impazzirò!!
Prima che tu impazzisca :quote:

codice:
Dim fpop(1 To 100) As Form1

    Dim frm As Form
    Dim nFrm As Integer
    For Each frm In Forms
        If TypeOf frm Is Form1 Then
            nFrm = nFrm + 1
        End If
    Next
    MsgBox (nFrm)
Ciao