First create solution

Nuvolar.Module/Controllers/Security Helper/SecurityHelperSystem.vb

@@ -0,0 +1,36 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Persistent.Base.Security
+Imports DevExpress.Utils
+
+<DefaultClassOptions()> _
+  Public Class SecuritySystemHelper
+    Public Shared Function IsUserInRole(ByVal userWithRoles As IUserWithRoles, ByVal roleName As String) As Boolean
+        'Guard.ArgumentNotNull(userWithRoles, "userWithRoles")
+        If userWithRoles Is Nothing Then Return True
+        For Each role As IRole In userWithRoles.Roles
+            If role.Name = roleName Then
+                Return True
+            End If
+        Next role
+        Return False
+    End Function
+    Public Shared Function IsUserInRoleCurrentUser(ByVal roleName As String) As Boolean
+        Return IsUserInRole(TryCast(SecuritySystem.CurrentUser, IUserWithRoles), roleName)
+    End Function
+    Public Shared Function IsUserInRole(ByVal roleName As String, ByVal user As User) As Boolean
+        Return IsUserInRole(TryCast(user, IUserWithRoles), roleName)
+    End Function
+    Public Shared Function IsUserAdministrator(ByVal simpleUser As ISimpleUser) As Boolean
+        Guard.ArgumentNotNull(simpleUser, "simpleUser")
+        Return simpleUser.IsAdministrator
+    End Function
+End Class