Private Sub mqtt_MessageArrived (Topic As String, Payload() As Byte)
If Topic = "danbicks" Then
Log(BytesToString(Payload, 0, password.Length, "utf8"))
Return
End If
Dim obj As Object = serializator.ConvertBytesToObject(Payload)
If obj Is CircleData Then
If Topic = mytopic Then Return 'the circle was already drawn
Dim cd As CircleData = obj
DrawCircleData(cd)
Else 'obj is string
Dim s As String = obj
Select s
Case "clear"
Canvas1.ClearRect(0, 0, Canvas1.Width, Canvas1.Height)
Case "close"
MainForm.Close
End Select
End If
End Sub