Public Shared Function IsCurrentUserInRole(ByRef roleName As String) As Boolean

    If (roleName = "" Or System.Web.HttpContext.Current.User.Identity.Name = "") Then

        Return False

    End If

    Dim _portalSettings As PortalSettings = CType(System.Web.HttpContext.Current.Items("PortalSettings"), PortalSettings)

    Dim objUsers As UserController = New UserController

    Dim objUser As UserInfo = objUsers.GetUser(_portalSettings.PortalId, Int32.Parse(HttpContext.Current.User.Identity.Name))

    Dim _roleController As RoleController = New RoleController

    Dim _roleinfo As RoleInfo = New RoleInfo

    Dim str As String() = _roleController.GetRolesByUser(objUser.UserID, _portalSettings.PortalId)

    Dim isInRole As Boolean = False

    Dim strInfo As String

    For Each strInfo In str

        _roleinfo = _roleController.GetRole(Int32.Parse(strInfo))

        If (_roleinfo.RoleName = roleName) Then

            isInRole = True

           Exit For

        End If

    Next

    Return isInRole

End Function