Sub GetGACItems()
    Dim [Assembly] As [Assembly]
    Dim dc As DataColumn
    Dim FileName As String
    Dim FilePath As String
    Dim rw As DataRow
    dtGACAssemblies = New DataTable
    dc = New DataColumn
    dc.ColumnName = "DisplayName"
    dtGACAssemblies.Columns.Add(dc)
    FileName = "gaclist.txt"
    FilePath = Environment.CurrentDirectory()
    FileName = FilePath & "\" & FileName
    If Not File.Exists(FileName) Then
        MsgBox("File does not exist.", FileName)
        Return
    End If
    Dim sr As StreamReader = File.OpenText(FileName)
    Dim input As String
    input = sr.ReadLine()
    While Not input Is Nothing
        If input <> "" Then
            rw = dtGACAssemblies.NewRow
            rw("DisplayName") = Trim(input)
            dtGACAssemblies.Rows.Add(rw)
        End If
        input = sr.ReadLine()
    End While
    sr.Close()
End Sub

Function LoadClassesMemberInfo(ByVal AssemblyFullFileName _
    As String, ByVal UseAsDisplayName As Boolean) As DataTable
    Dim t As Type
    Dim othis As Object
    Dim mAssembly As [Assembly]
    Dim marrayOfTypes() As Type
    Dim mAssemblyName As String
    'Dim mPropInfo As PropertyInfo
    Dim rw As DataRow
    Dim OutputThisOne As Boolean
    Dim tmpName, tmpHeader As String
    Dim sOutput As String
    Dim iOutputClasses As Integer
    Dim ds As New DataSet
    StatusBar1.Text = ""
    Me.Cursor.Current = Cursors.WaitCursor
    mAssemblyName = AssemblyFullFileName
    sOutput = ""
    Try
        If Not UseAsDisplayName Then
            mAssembly = [Assembly].LoadFrom(mAssemblyName)
        Else
            mAssembly = [Assembly].Load(mAssemblyName)
        End If
        marrayOfTypes = mAssembly.GetExportedTypes()
        sOutput = mAssembly.FullName
        For Each t In marrayOfTypes
            OutputThisOne = False
            If t Is Nothing Then
                MsgBox("Type was not found — exiting")
                Exit Function
            End If
            If Not t.Name.EndsWith("base") Then
                'output if class does not end with base
                OutputThisOne = True
            End If
            tmpHeader = ""
            tmpName = ""
            If OutputThisOne Then
                iOutputClasses += 1
                If ds.Tables.Count = 0 Then
                ds.Tables.Add(GetMemberInfo(t))
                ElseIf ds.Tables.Count > 0 Then
                ds.Merge(GetMemberInfo(t))
                End If
            End If
        Next
    Catch exc As Exception
        StatusBar1.Text = mAssemblyName & "error occurred. " & exc.Message
    Finally
        mAssembly = Nothing
        GC.Collect()
    End Try
    Me.Cursor.Current = Cursors.Default
    Return ds.Tables(0)
End Function

  Function GetMemberInfo(ByVal t As Type) As DataTable
    Dim dc As DataColumn
    Dim dt As DataTable
    Dim rw As DataRow
    Dim i As Integer
    Dim lMemberInfo() As MemberInfo
    Dim lAssemblyName As String
    Dim lPropertyInfo As PropertyInfo
    Dim lMethodInfo As MethodInfo
    Dim lEventInvo As EventInfo
    dt = New DataTable
    dt.TableName = "MemberInfo"
    dc = New DataColumn
    dc.ColumnName = "ClassName"
    dt.Columns.Add(dc)
    dc = New DataColumn
    dc.ColumnName = "ItemName"
    dt.Columns.Add(dc)
    dc = New DataColumn
    dc.ColumnName = "ItemType"
    dt.Columns.Add(dc)
    dc = New DataColumn
    dc.ColumnName = "ItemDataType"
    dt.Columns.Add(dc)
    Try
        lMemberInfo = t.GetMembers(( BindingFlags.Public Or _
            BindingFlags.Instance Or BindingFlags.InvokeMethod))
        lAssemblyName = t.Name
        For i = 0 To lMemberInfo.Length - 1
        rw = dt.NewRow
        If lMemberInfo(i).MemberType <> MemberTypes.Method _
            And lMemberInfo(i).MemberType <> MemberTypes.Property _
            And lMemberInfo(i).MemberType <> MemberTypes.Event Then
                rw("ClassName") = lAssemblyName
            rw("ItemName") = lMemberInfo(i).Name
            rw("ItemType") = lMemberInfo(i).MemberType
            dt.Rows.Add(rw)
        End If
        Next i
        'add methods
        For Each lMethodInfo In t.GetMethods(( _
            BindingFlags.Public Or _
            BindingFlags.Instance Or BindingFlags.InvokeMethod))
        rw = dt.NewRow
        rw("ClassName") = t.Name
        rw("ItemName") = lMethodInfo.Name
        rw("ItemDataType") = lMethodInfo.ReturnType.ToString
        rw("ItemType") = "Method"
        dt.Rows.Add(rw)
        Next
        'add properties
        For Each lPropertyInfo In t.GetProperties((BindingFlags.Public Or _
            BindingFlags.Instance Or BindingFlags.InvokeMethod))
        rw = dt.NewRow
        rw("ClassName") = t.Name
        rw("ItemName") = lPropertyInfo.Name
        rw("ItemDataType") =  lPropertyInfo.PropertyType.ToString
        rw("ItemType") = "property"
        dt.Rows.Add(rw)
        Next
        'add events
        For Each lEventInvo In t.GetEvents(( _
            BindingFlags.Public Or BindingFlags.Instance _
            Or BindingFlags.InvokeMethod))
        rw = dt.NewRow
        rw("ClassName") = t.Name
        rw("ItemName") = lEventInvo.Name
        rw("ItemDataType") = ""
        rw("ItemType") = "event"
        dt.Rows.Add(rw)
        Next
    Catch e As Exception
        msgbox(("Exception : " + e.Message.ToString()))
    End Try
    Return dt
    End Function