Sub LocManager_DidRangeBeacons (Beacons As List)
For Each Beacon As NativeObject In Beacons
Dim UUID As String = Beacon.GetField("proximityUUID").AsString
Dim Major As Int = Beacon.GetField("major").AsNumber
Dim Minor As Int = Beacon.GetField("minor").AsNumber
Dim proximity As Int = Beacon.GetField("proximity").AsNumber '0 = unknown, 1 = immediate, 2 = near, 3 = far
Dim rssi As Int = Beacon.GetField("rssi").AsNumber
TextView1.Text = $"Beacon found: ${UUID}
Major: ${Major}
Minor: ${Minor}
Proximity: ${proximity}
RSSI: ${rssi}
Time: $Time{DateTime.Now}
"$
Next
End Sub