獲得一個命名空間中所有的類等，並給類屬性付值。

以下只是獲得命名空間中的類，  If t.IsClass Then
其他的你可以判斷，  If t.IsValueType Then結構, If t.IsInterface介面
把這個命名空間中的類執行個體化：a.CreateInstance(t.FullName)
同樣你可以根據這個類，取得它其中有的屬性System.ComponentModel.TypeDescriptor.GetProperties(t)
也可以給屬性付值，也可以獲得事件：System.ComponentModel.TypeDescriptor.GetEvents(t)，

其他的看看MSDN就知道了。

以下只作為參考：

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As DataTable
        dt = GetClassName("webcontrol")

        For i As Integer = 0 To dt.Rows.Count - 1

            If dt.Rows(i)(0).ToString.ToLower = "textbox" Then
                Call SetClassPropertyValue(dt.Rows(i)(2), "text", "123")
            End If
        Next
    End Sub

    Private Function GetClassName(ByVal namespacestr As String) As DataTable
        Dim a As System.Reflection.Assembly
        Dim t As Type
        Dim dt As DataTable
        Dim dr As DataRow

        dt = New DataTable
        dt.Columns.Add(New DataColumn("ClassName"))
        dt.Columns.Add(New DataColumn("ClassFullName"))
        dt.Columns.Add(New DataColumn("InstanceClass"))

        a = System.Reflection.Assembly.Load(namespacestr)
        For Each t In a.GetExportedTypes

            If t.IsClass Then
                dr = dt.NewRow
                dr("ClassName") = t.Name
                dr("ClassFullName") = t.FullName
                dr("InstanceClass") = a.CreateInstance(t.FullName)
                dt.Rows.Add(dr)
                dt.AcceptChanges()
            End If
        Next
        Return dt
    End Function

    Private Sub SetClassPropertyValue(ByVal t As Type, ByVal propertyStr As String, ByVal value As String)
        Dim cc As System.Web.UI.ControlCollection
        Dim pd As System.ComponentModel.PropertyDescriptor
        Dim pdc As System.ComponentModel.PropertyDescriptorCollection

        pdc = System.ComponentModel.TypeDescriptor.GetProperties(t)
        pd = pdc.Find(propertyStr, False)
        pd.SetValue(t, value)
    End Sub