B4J Question How to set up a simple websocket server

Sub timer_tick
'Dim m As Map
'm.Initialize
    'm.Put ("time", DateTime.Now)
    Dim json As JSONGenerator
'    json.Initialize(m)
'    Dim jsonstring As String = json.ToString
'    Log (jsonstring)
    'ws.SendText(jsonstring)
    Dim timestring As String = DateTime.now
    Dim m As Map
    m.Initialize
    m.Put("type", "event")
    m.Put("event","Device_Message")
    m.Put("params", timestring)
    Dim jg As JSONGenerator
    jg.Initialize(m)
    ws.SendText(jg.ToString)
End Sub

Sub Device_Message(Params As Map)
Dim indstring As String = Params
    indstring = indstring.replace("(String) ","")
Log (indstring)

End Sub