'Check the user is an administrator or not.
    Public Function IsAdministrator(ByVal useruniquename As String) As Boolean Implements CuteSoft.Chat.IHttpApplicationDataProvider.IsAdministrator
       
        'EXAMPLE 1 (IbuySpy):
        'Dim udb As New UsersDB
        'Dim email As String = useruniquename
        'Dim roles As String() = udb.GetRoles(email)
        'Return Array.IndexOf(roles, "Admins") <> -1
       
        'EXAMPLE 2 (DNN4):       
        'Dim user As DotNetNuke.Entities.Users.UserInfo = GetUser(useruniquename)
        'If user.IsSuperUser Then
        '       Return True
        'End If
        'Dim roles() As String = New DotNetNuke.Security.Roles.RoleController().GetRolesByUser(user.UserID, CurrentPortal().PortalId)
        'Return Array.IndexOf(roles, "Administrators") <> -1
       
        Return "NOT IMPLEMENTED"
    End Function