获得一个命名空间中所有的类等，并给类属性付值。

以下只是获得命名空间中的类，  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