打开父窗体是打开所有字窗体

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
  可能描术有点问题，是这个父窗体有很多子窗体，我想在打开父窗体后打开所有子窗体，但我不想一个一个的写入子窗体名子的方式加载，再打开，如我的开贴中的描述。