Sub Manager_DataAvailable (Service As String, Characteristics As Map)
ActivityIndicator2.Visible = False
clv.Add(CreateServiceItem(Service), 30, "")
For Each id As String In Characteristics.Keys
clv.Add(CreateCharacteristicItem(id, Characteristics.Get(id)), 40, "")
Dim s As String = "abcde"
Dim msg() As Byte = s.GetBytes("ASCII")
Dim msg2(msg.Length + 2) As Byte
ByteConv1.ArrayCopy(msg,0,msg2,0,msg.Length)
msg2(msg.Length) = 10
msg2(msg.Length+ 1) = 13
Log ( " ID " & Service & " " & id)
manager.WriteData(Service,id, msg2)
Next
End Sub