<%@ Control Language="vb" Inherits="DotNetNuke.PortalModuleControl" %>
<%@ Import Namespace="DotNetNuke" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="CuteSoft.Chat" %>

<script runat="server">
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)

        If Not IsPostBack Then
            Dim ChatCount As Integer            
            Dim ChatUsers As String
            For Each lobbyinfo As LobbyInfo In ChatApi.GetLobbyInfoArray()
               ChatCount = ChatCount + lobbyinfo.ClientCount
               ChatUsers = ChatUsers + lobbyinfo..JoinClient(",")
            Next
            Literal1.Text = ChatCount.ToString             
            Literal2.Text = ChatUsers 
        End If      
    End Sub   
</script>

<asp:Literal ID="Literal1" Runat="server" />