Public Sub New(ByVal TheName As String)
        Try
            Dim Temp As Reflection.Assembly = Reflection.Assembly.LoadFrom(TheName)
            Dim TempType() As Type = Temp.GetTypes()
            Dim Ttype As Type
            Dim TP As Reflection.PropertyInfo
            For Each Ttype In TempType
                Dim PropertyList() As Reflection.PropertyInfo
                PropertyList = Ttype.GetProperties
                For Each TP In PropertyList
                        TypeCollection.Add(Ttype)
                        '这里因为没有条件判断所以如果项目内如果存在其它的Cls也会被添加进入的
                Next

            Next
        Catch ex As Exception
            MsgBox(" 错误 !", MsgBoxStyle.Exclamation, "错误")
        End Try

    End Sub

    Public Function CreateForm(ByVal FormName As String) As Form
        Dim TempForm As Form
        Dim T As Type
        For Each T In TypeCollection
            If UCase(T.Name) = UCase(FormName) Then
                Return Activator.CreateInstance(T)
                Exit For
            End If
        Next
    End Function