Sub SetAlarm(Hour As Int, Minutes As Int)
Dim i As Intent
i.Initialize("android.intent.action.SET_ALARM", "")
i.PutExtra("android.intent.extra.alarm.HOUR", Hour)
i.PutExtra("android.intent.extra.alarm.MINUTES", Minutes)
i.PutExtra("android.intent.extra.alarm.SKIP_UI", False)
StartActivity(i)
End Sub