Dim wake As PhoneWakeState 'ignore. this will add the required permission
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim WakeLock As JavaObject
WakeLock = ctxt.RunMethodJO("getSystemService", Array("power")).RunMethod("newWakeLock", Array(1, "LocationManagerService"))
WakeLock.RunMethod("acquire", Null)