Private Sub btManager_DeviceFound (Name As String, Id As String, AdvertisingData As Map, RSSI As Double)
' Log($"Device found: ${Name}"$)
Dim NameAndMac1 As NameAndMac
NameAndMac1.Initialize
NameAndMac1.Mac = Id
NameAndMac1.Name = AdvertisingData.Get("kCBAdvDataLocalName").As(String).Trim
FoundDevices.Add(NameAndMac1)
End Sub