Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Main")
Dim arDays() As Int = Array As Int(1, 3, 5)
Dim i As Intent
' Dim FileName As String = "mantle_one_chime.mp3"
' Dim FileName As String = "b4a.png"
'copy the shared file to the shared folder
' File.Copy(File.DirAssets, FileName, Starter.Provider.SharedFolder, FileName)
' Log("The file URI is: " & Starter.Provider.GetFileUri(FileName))
i.Initialize("android.intent.action.SET_ALARM", "")
i.PutExtra("android.intent.extra.alarm.HOUR", 20)
i.PutExtra("android.intent.extra.alarm.MINUTES", 30)
i.PutExtra("android.intent.extra.alarm.MESSAGE","My Alarm")
i.PutExtra("android.intent.extra.alarm.SKIP_UI", True)
i.PutExtra("android.intent.extra.alarm.DAYS", arDays)
' i.PutExtra("android.intent.extra.alarm.RINGTONE", _
' Starter.Provider.GetFileUri(strFileUri))
StartActivity(i)
End Sub