霸道的MDI

大家有没有遇到这样的情况？看到这个问题真是让人眼前一亮

Sub main()
  Dim flogin As New frmlogin
  flogin.Show vbModal
  If Not flogin.ok Then
     End
  End If
   Unload flogin
  Set fmainform = New frmmain
  frmmain.Show
End Sub

这个代码是从学生中借鉴来的，学生是没有问题，但是……在机房里就水土不服了

查找资料，错误原因解决方法如下：

  
  
试图向工程中加载包含 MDIForm 的文件，该工程中已经包含一个 MDIForm。
在加载其它文件之前，先删除包含已加载 MDIForm 的文件。
试图加载 MDIForm 的第二个实例，该 MDIForm 是用 Dim 或 Set 语句创建的。
在工程中仅能创建 MDIForm 的一个实例。

一、开始以为是第二个错误原因，结果是绊在第一个问题上

在模块中 Set fmainform = New frmmain而这里又出现了一次，所以有了冲突

二、就第二个原因了，有大虾将代码

    Set fMainform = New frmmain
    fMainform.Show

     改为

    Set fMainform = New frmmain
    frmmain.Show

   我依葫芦画瓢这样改了一下，结果还是不行

   最后果断将他注释掉，然后就没有问题了

三、有人说frmmain改为普通窗体也可以解决问题，这是一个可行的方法，因为这样就没有什么主窗体了