Private Sub client_Connected (Success As Boolean)
If Success=True Then
client.Subscribe("all/#", 0)
client.Subscribe("time", 0)
client.Subscribe("signal", 0)
client.Publish2("all/connect", serializator.ConvertObjectToBytes(Name), 0, False)
Private Sub client_MessageArrived (Topic As String, Payload() As Byte)
Dim receivedObject As Object
receivedObject = serializator.ConvertBytesToObject(Payload)
Select Topic
Case "all/connect", "all/disconnect"
....
Case "time"
....
Case "signal"
....