首先写一个模块,其作用是检验一个子窗体是否已被实例化。
Module InstanceState
'检验一个窗体是否被实例化
Public Function GetInstanceState(ByVal name As String) As Boolean
Dim i As Integer = MDIMain.MdiChildren.Length
For i = 0 To MDIMain.MdiChildren.Length - 1
If MDIMain.MdiChildren(i).Name =