Sub PlayAlarm
mp.Load(File.DirAssets, "xylophone.mp3")
Dim Ph As Phone
Try
Ph.SetVolume(Ph.VOLUME_MUSIC,Ph.GetMaxVolume(Ph.VOLUME_MUSIC),True)
Log("Worked")
Catch
Log("Didn't work")
MsgboxAsync("Phone is set to 'Do Not Disturb Mode'", "Reset Mode to hear alarm")
End Try
mp.Play
End Sub