帮看看这段代码什么意思，小弟我看了几天不明白

 

....这个类以上内容无关
  
 Private fModule As Control



Public ReadOnly Property TModule() As Control
            Get
                If Me.fModule Is Nothing Then
                    Dim constructorInfoObj As ConstructorInfo = fType.GetConstructor(Type.EmptyTypes)
                    If constructorInfoObj Is Nothing Then

                        Throw New ApplicationException(fType.FullName + " doesn't have public constructor with empty parameters")
                    End If
                    Me.fModule = constructorInfoObj.Invoke(Nothing)
                End If
                Return Me.fModule
            End Get
        End Property

    End Class

  

//后面的例子中。。调用它的地方我打了红色

Public Shared Sub ShowModule(ByVal container As Control, ByVal fName As String)
            Dim item As ModuleInfo = ModulesInfo.GetItem(fName)
            Dim currentCursor As Cursor = Cursor.Current
            Cursor.Current = Cursors.WaitCursor
            If Not container.Parent Is Nothing Then

                container.Parent.SuspendLayout()
            End If
            container.SuspendLayout()
            Try
                Dim oldModule As Control = Nothing
                If Not Instance.CurrentModuleBase Is Nothing Then

                    oldModule = [color=#FF0000]Instance.CurrentModuleBase.TModule[/color]                End If
                Dim fModule As Control = IIf(TypeOf item.TModule Is Control, CType(item.TModule, Control), Nothing)
                fModule.Bounds = container.DisplayRectangle
                Instance.CurrentModuleBase = item
                fModule.Visible = False
                container.Controls.Add(fModule)
                fModule.Dock = DockStyle.Fill
                fModule.Visible = True
                If Not oldModule Is Nothing Then

                    oldModule.Visible = False
                End If
            Finally
                container.ResumeLayout(True)
                If Not container.Parent Is Nothing Then

                    container.Parent.ResumeLayout(True)
                End If
                Cursor.Current = currentCursor
            End Try
            Instance.RaiseCurrentModuleChanged()
        End Sub