The FriendlyNameAttribute.

[
AttributeUsage(AttributeTargets.Property),
]
class FriendlyNameAttribute : Attribute
{
  string _name;
  public string Name
  {
    get{return _name;}
    set{_name=value;}
  }

  public FriendlyNameAttribute(string name)
  {
    _name=name;
  }
}

<AttributeUsage(AttributeTargets.Property)> _

Public Class FriendlyNameAttribute

  Inherits Attribute

  Private _name As String

  Public ReadOnly Property Name() As String

    Get

      Return _name

    End Get

  End Property

  Public Sub New(ByVal name As String)

    _name = name

  End Sub

End Class