显示窗体时慎用Dim……as new

错误之一：显示其他子窗体时，报错，只能有一个MDI窗体。

原代码：Sub Main()
Dim fLogin As New frmLogin '显示登录窗体
Dim fMainForm As New frmMain

fLogin.Show vbModal 
  
If Not fLogin.OK Then   
   End
End If  
 
Unload fLoginfMainForm.Show

错误原因：不言自明，一个工程中只能有一个MDI窗体，dim …… as new ,造成多个MDI窗体。

修正：Sub Main
frmLogin.Show vbModal
   
If Not frmLogin.OK Then
   End
End If
   
Unload frmLogin
frmMain.Show