.....
Sub Service_Start
Main.mp.Initialize() 'Initialize Mediaplayer
PlayAlarm
ToastMessageShow("Run....", True)
End Sub
Sub Service_Destroy
StopService("") 'Stop this service
CancelScheduledService("") 'Cancel this service
End Sub
Sub PlayAlarm
Main.mp.Load(File.DirAssets, Main.mp3)
Main.mp.Play
End Sub