Imports System.Reflection

Namespace Michaels
  Public Class ReadAssembly
    Private myType As Type

    Public Sub New()
      myType = GetType(Form1)
    End Sub

    Public ReadOnly Property Name() As String
      Get
        Return myType.Assembly.GetName.Name.ToString()
      End Get
    End Property

    Public ReadOnly Property FullName() As String
      Get
        Return myType.Assembly.GetName.FullName.ToString()
      End Get
    End Property

    Public ReadOnly Property CodeBase() As String
      Get
        Return myType.Assembly.CodeBase
      End Get
    End Property

    Public ReadOnly Property Copyright() As String
      Get
        Dim at As Type = GetType(AssemblyCopyrightAttribute)
        Dim r() As Object = _
                 myType.Assembly.GetCustomAttributes(at, False)
        Dim ct As AssemblyCopyrightAttribute = _
                 CType(r(0), AssemblyCopyrightAttribute)
        Return ct.Copyright
      End Get
    End Property

    Public ReadOnly Property Company() As String
      Get
        Dim at As Type = GetType(AssemblyCompanyAttribute)
        Dim r() As Object = _
                 myType.Assembly.GetCustomAttributes(at, False)
        Dim ct As AssemblyCompanyAttribute = _
                 CType(r(0), AssemblyCompanyAttribute)
        Return ct.Company
      End Get
    End Property

    Public ReadOnly Property Description() As String
      Get
        Dim at As Type = GetType(AssemblyDescriptionAttribute)
        Dim r() As Object = _
                 myType.Assembly.GetCustomAttributes(at, False)
        Dim da As AssemblyDescriptionAttribute = _
                 CType(r(0), AssemblyDescriptionAttribute)
        Return da.Description
      End Get
    End Property

    Public ReadOnly Property Product() As String
      Get
        Dim at As Type = GetType(AssemblyProductAttribute)
        Dim r() As Object = _
                 myType.Assembly.GetCustomAttributes(at, False)
        Dim pt As AssemblyProductAttribute = _
                 CType(r(0), AssemblyProductAttribute)
        Return pt.Product
      End Get
    End Property

    Public ReadOnly Property Title() As String
      Get
        Dim at As Type = GetType(AssemblyTitleAttribute)
        Dim r() As Object = _
                 myType.Assembly.GetCustomAttributes(at, False)
        Dim ta As AssemblyTitleAttribute = _
                 CType(r(0), AssemblyTitleAttribute)
        Return ta.Title
      End Get
    End Property

    Public ReadOnly Property Version() As String
      Get
        Return myType.Assembly.GetName.Version.ToString()
      End Get
    End Property
  End Class
End Namespace