Get attribute from a MemberInfo or MetadataType class used for the class the MemberInfo is defined in. This is usefull for Entity Framework Model classes and being able to pull out attributes.

AttributeExtensions.vb

Imports System.ComponentModel.DataAnnotations
Imports System.Reflection
Imports System.Runtime.CompilerServices

Module Extensions

    <Extension>
    Public Function GetAttribute(Of T As Type)(MI As MemberInfo, AttType As T, Optional Inherit As Boolean = True) As Attribute

        Dim Attrs As Attribute() = MI.GetCustomAttributes(AttType, Inherit)
        If Attrs.Count > 0 Then
            Return Attrs(0)
        End If

        Attrs = MI.DeclaringType.GetCustomAttributes(GetType(MetadataTypeAttribute), True)
        Dim metaAttr As MetadataTypeAttribute = If(Attrs.Count < 1, CType(Nothing, MetadataTypeAttribute), TryCast(Attrs(0), MetadataTypeAttribute))
        Dim metaProps As MemberInfo() = If(metaAttr IsNot Nothing, metaAttr.MetadataClassType.GetMember(MI.Name), CType(Nothing, MemberInfo()))
        If metaProps.Count = 0 Then
            Return Nothing
        End If

        Attrs = metaProps(0).GetCustomAttributes(AttType, True)
        If Attrs.Length < 1 Then
            Return Nothing
        End If
        Return Attrs(0)
    End Function
End Module