Sub Service_Start (StartingIntent As Intent)
Try
Dim Mediaplayer2 As MediaPlayer
Mediaplayer2.Initialize
Mediaplayer2.Load( File.DirAssets, "rooster.wav")
Catch
End Try
Try
Mediaplayer2.Play
Catch
End Try
alarmzeit = DateTime.Add(DateTime.Now,0,0,1)
StartServiceAt("",alarmzeit,True)
End Sub