Private Shared mInstanceCount As Byte                            '实例个数
#Region "窗体初始化"
    Public Shared ReadOnly Property InstanceCount As Byte
        Get
            Return mInstanceCount
        End Get '
    End Property
    Private Sub frmFormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        mInstanceCount -= 1
    End Sub
    Private Sub frmLoad(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        mInstanceCount += 1
    End Sub
#End Region