窗体通讯

窗体通讯#Region "窗体通讯"
    Private Shared m_vb6FormDefInstance As PCreatForm
    Private Shared m_InitializingDefInstance As Boolean
    Public Shared Property DefInstance()Property DefInstance() As PCreatForm
        Get
            If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
                m_InitializingDefInstance = True
                m_vb6FormDefInstance = New PCreatForm
                m_InitializingDefInstance = False
            End If
            DefInstance = m_vb6FormDefInstance
        End Get
        Set(ByVal Value As PCreatForm)
            m_vb6FormDefInstance = Value
        End Set
    End Property
#End Region