Sub ble_Connected(Services As Map)
Log("Connected:")
Dim mCh As Map
mCh.Initialize
For i = 0 To Services.Size -1
Serv = Services.GetValueAt(i)
Log(" Srvice[" & i & "] = " & Services.GetKeyAt(i))
mCh = Serv.GetCharacteristics
For x = 0 To mCh.Size -1
Log(" CharKey(" & x & ") = " & mCh.GetKeyAt(x))
Log(" CharVal(" & x & ") = " & mCh.GetValueAt(x))
Next
Next
End Sub