'---------------------------------------------------------------------------
'Client Trying to Listen to messages published

  connection.[On](Of SignalRMessage)("newMessage", Function(sr)
                                                             Dim m As New msg
                                                             If sr.Arguments IsNot Nothing Then
                                                                 m = DirectCast(sr.Arguments(0), msg)
                                                                 Debug.WriteLine(m.text)
                                                             End If
                                                             Return m?.text
                                                         End Function)