Sub SearchForBeacon(UUID As String, Identifier As String) As Object
If LocManager.IsAuthorized Or LocManager.AuthorizationStatus = LocManager.AUTHORIZATION_NOT_DETERMINED Then
Dim no As NativeObject = LocManager
no = no.GetField("manager")
If LocManager.AuthorizationStatus = LocManager.AUTHORIZATION_NOT_DETERMINED Then
no.RunMethod("requestWhenInUseAuthorization", Null)
End If
Dim nsuuid, br As NativeObject
nsuuid = nsuuid.Initialize("NSUUID").RunMethod("alloc", Null).RunMethod("initWithUUIDString:", Array(UUID))
br = br.Initialize("CLBeaconRegion").RunMethod("alloc", Null).RunMethod("initWithProximityUUID:identifier:", _
Array(nsuuid, Identifier))
no.RunMethod("startRangingBeaconsInRegion:", Array(br))
btnStop.Enabled = True
btnStart.Enabled = False
Return br
Else
Log("Not authorized!")
Return Null
End If
End Sub