#Region " Helper Class to Get Information for the About form. "
' This class uses the System.Reflection.Assembly class to
' access assembly meta-data
' This class is not a normal feature of AssemblyInfo.vb
Public Class AssemblyInfo
    ' Used by Helper Functions to access information from Assembly Attributes
    Public ReadOnly Property AsmName() As String
        Get
            Return Me.Asm.GetName.Name.ToString()
        End Get
    End Property
    Public ReadOnly Property Asm() As System.Reflection.Assembly
        Get
            Return Me.GetType.Assembly.GetEntryAssembly
        End Get
    End Property
    Public ReadOnly Property AsmFQName() As String
        Get
            Return Me.Asm.GetName.FullName.ToString()
        End Get
    End Property
    Public ReadOnly Property CodeBase() As String
        Get
            Return Me.GetType.Assembly.CodeBase
        End Get
    End Property
    Public ReadOnly Property Copyright() As String
        Get
            Dim at As Type = GetType(AssemblyCopyrightAttribute)
            Dim r() As Object = Me.Asm.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 = Me.Asm.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 = Me.Asm.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 = Me.Asm.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 = Me.Asm.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 Me.Asm.GetName.Version.ToString()
        End Get
    End Property
End Class
 
#End Region

Micke