Sub Class_Globals
Private jo As JavaObject
Private jo2 As JavaObject
Private u As Uri
End Sub
Sub PlayRingtone
jo.InitializeStatic("android.media.RingtoneManager")
jo2.InitializeContext
u.Parse(Starter.rm.GetDefault(Starter.rm.TYPE_ALARM))
jo.RunMethodJO("getRingtone", Array(jo2, u)).RunMethod("play", Null)
End Sub
Sub stopRingtone
jo.RunMethodJO("getRingtone", Array(jo2, u)).RunMethod("stop", Null)
End Sub