CallerMemberNameAttribute for .NET Framework earlier than 4.5

CallerMemberNameAttribute.cs

namespace System.Runtime.CompilerServices
{
  [AttributeUsage(AttributeTargets.Parameter, AllowMultiple = false, Inherited = false)]
  public class CallerMemberNameAttribute : Attribute
  {
  }
}

CallerMemberNameAttribute.vb

Namespace Global.System.Runtime.CompilerServices

  <AttributeUsage(AttributeTargets.Parameter, AllowMultiple:=False, Inherited:=False)>
  Public Class CallerMemberNameAttribute
    Inherits Attribute
  End Class

End Namespace

NotificationObject.cs

using System;
using System.ComponentModel;
using System.Runtime.CompilerServices;

public abstract class NotificationObject : INotifyPropertyChanged
{
  public event PropertyChangedEventHandler PropertyChanged;

  protected virtual void RaisePropertyChanged(ISynchronizeInvoke invoker, [CallerMemberName] string propertyName = null)
  {
    if ((invoker != null) && invoker.InvokeRequired)
    {
      invoker.Invoke(new Action(() => RaisePropertyChanged(propertyName)), null);
    }
    else
    {
      RaisePropertyChanged(propertyName);
    }
  }

  protected virtual void RaisePropertyChanged([CallerMemberName] string propertyName = null)
  {
    var handler = PropertyChanged;
    if (handler != null)
    {
      handler(this, new PropertyChangedEventArgs(propertyName));
    }
  }
}

NotificationObject.vb

Imports System.ComponentModel
Imports System.Runtime.CompilerServices

Public MustInherit Class NotificationObject
  Implements INotifyPropertyChanged

  Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged

  Protected Overridable Sub RaisePropertyChanged(invoker As ISynchronizeInvoke, <CallerMemberName> Optional propertyName As String = Nothing)
    If ((invoker IsNot Nothing) AndAlso invoker.InvokeRequired) Then
      invoker.Invoke(Sub() RaisePropertyChanged(propertyName), Nothing)
    Else
      RaisePropertyChanged(propertyName)
    End If
  End Sub

  Protected Overridable Sub RaisePropertyChanged(<CallerMemberName> Optional propertyName As String = Nothing)
    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
  End Sub
End Class