Private Sub Button2_Click
Wait For (GetScheduleExactAlarmPermission) Complete (HasPermission As Boolean)
if HasPermission Then
StartServiceAtExact(ScheduledReceiver, DateTime.Now + 7 * DateTime.TicksPerDay, True) ' Schedule for 7 days later
Else
Log("no permission")
End If
End Sub