<WebMethod()> _
    Public Function PostMessage(ByVal nickName As String, ByVal message As _
    String) As String
        Dim messages As String = DirectCast(Application("messages"), String)
        Application("messages") = (("[" & nickName & "] ") + message & vbCr & _
          vbLf) + messages
        Return DirectCast(Application("messages"), String)
    End Function