Private Sub CheckScheduleExactAlarmPermission As ResumableSub
Dim p As Phone
Dim ret As Boolean = True
If p.SdkVersion >= 31 Then
Dim am As JavaObject = GetAlarmManager
ret = am.RunMethod("canScheduleExactAlarms", Null).As(Boolean)
End If
Return ret
End Sub