[RuleCriteria("SecuritySystemUser_EF_Prevent_delete_logged_in_user", DefaultContexts.Delete, "[ID] != CurrentUserId()", "Cannot delete the current logged-in user. Please log in using another user account and retry.")]
public class User :
    ISecurityUser,
    IAuthenticationActiveDirectoryUser,
    IAuthenticationStandardUser,
    IOperationPermissionProvider,
    ISecurityUserWithRoles,
    INotifyPropertyChanged,
    ICanInitialize

<RuleCriteria("SecuritySystemUser_EF_Prevent_delete_logged_in_user", DefaultContexts.Delete, "[ID] != CurrentUserId()", "Cannot delete the current logged-in user. Please log in using another user account and retry.")>
Public Class User
    Implements ISecurityUser,
               IAuthenticationActiveDirectoryUser,
               IAuthenticationStandardUser,
               IOperationPermissionProvider,
               ISecurityUserWithRoles,
               INotifyPropertyChanged,
               ICanInitialize

using DevExpress.Persistent.BaseImpl.EF;
// ...
public class Employee : User {
    [Browsable(false)]
    public virtual int ID { get; protected set; }
    public virtual string FullName {get; set; }
    public virtual Department Department { get; set; }
    public virtual IList<Task> Tasks { get; set; }
}

public class Task {
    // ...
}

// Make sure that you use options.UseChangeTrackingProxies() in your DbContext settings.

Imports DevExpress.Persistent.BaseImpl.EF
' ...
Public Class Employee
    Inherits User
    Private privateID As Int32
    <Browsable(False)> _
    Public Property ID() As Int32
        Get
            Return privateID
        End Get
        Protected Set(ByVal value As Int32)
            privateID = value
        End Set
    End Property
    Public Property FullName() As String
    Public Overridable Property Department() As Department
    Public Overridable Property Tasks() As IList(Of Task)
End Class

Public Class Task
' ...
End Class

public static void Main(string[] arguments) {
    MySolutionWinApplication winApplication = new MySolutionWinApplication();
    winApplication.Security = 
        new SecurityStrategyComplex(typeof(Employee), typeof(Role), 
            new AuthenticationStandard());
    // ...
}

Public Shared Sub Main(ByVal arguments() As String)
    Dim winApplication As New MySolutionWinApplication()
    winApplication.Security = _
    New SecurityStrategyComplex(GetType(Employee), GetType(Role), _
    New AuthenticationStandard())
    ' ...
End Sub

protected void Session_Start(Object sender, EventArgs e) {
    WebApplication.SetInstance(Session, new MySolutionAspNetApplication());
    WebApplication.Instance.Security = 
       new SecurityStrategyComplex(typeof(Employee), typeof(Role), 
            new AuthenticationStandard());
    // ...
}

Protected Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
    WebApplication.SetInstance(Session, New MySolutionAspNetApplication())
    WebApplication.Instance.Security = _
    New SecurityStrategyComplex(GetType(Employee), GetType(Role), _
    New AuthenticationStandard())
    ' ...
End Sub