Dim AlarmManager As JavaObject
Dim AlarmClockInfo As JavaObject
Dim rf As Reflector
Dim Context As JavaObject
Context=rf.GetContext
AlarmManager.InitializeStatic("android.app.AlarmManager")
AlarmClockInfo.InitializeStatic("android.app.AlarmManager.AlarmClockInfo")
AlarmManager = Context.RunMethod("getSystemService",Array As Object("alarm"))
AlarmClockInfo = AlarmManager.RunMethod("getNextAlarmClock", Null)
If AlarmClockInfo.IsInitialized Then
Dim Alarm As Long = AlarmClockInfo.RunMethod("getTriggerTime", Null)
TLabel.Text = DateTime.Time(Alarm)
End If