有没办法知道一个工程中有多少个FROM

Question

Private Sub MDIForm_Load()
   Dim fN(3) As Form
   
   Set fN(1) = Form1
   Set fN(2) = Form2
   Set fN(3) = Form3   
   
   For I = 1 To 3
      fN(I).Show
   Next      
   
End Sub我想实现这个功能，打开父窗体是打开所有字窗体，但这时 FORM1.FORM2就不这个名了，如果实现？也就是说有没办法知道一个工程中有多少个FROM ,   如下（当完下边的代码不行）
   Dim fn As FORM  
   For Each fn In Me.Controls
       MsgBox fn.Name
   Next
   

Answer 1

   Dim frm as Form
   For Each frm In Forms
      MsgBox frm.Name
   Next