Public Function ListUserUniqueName() As String() Implements CuteSoft.Chat.IHttpApplicationDataProvider.ListUserUniqueName
       
        'EXAMPLE 1 (IbuySpy):
        'Dim udb As New AdminDB
        'Dim sdr As SqlDataReader = udb.GetUsers()
        'Try
        '    Dim list As New ArrayList
        '    Dim pos As Integer = sdr.GetOrdinal("Email")
        '    Do While sdr.Read
        '        list.Add(sdr.GetString(pos))
        '    Loop
        '    Return CType(list.ToArray(GetType(String)), String())
        'Finally
        '    sdr.Close()
        'End Try
       
        'EXAMPLE 2 (DNN4):
        '   Dim names As New System.Collections.ArrayList
        '   For Each user As DotNetNuke.Entities.Users.UserInfo In New DotNetNuke.Entities.Users.UserController().GetUsers(CurrentPortal().PortalId, False, False)
        '        names.Add(user.UserID.ToString())
        '   Next
        '   Return CType(names.ToArray(GetType(String)), String())
        Return "NOT IMPLEMENTED"
    End Function