Sub Activity_Create(FirstTime As Boolean)
rm.ShowRingtonePicker("rm", rm.TYPE_NOTIFICATION, True, "")
End Sub
Sub rm_PickerResult (Success As Boolean, Uri As String)
Log(Uri)
Dim mp As MediaPlayer
mp.Initialize
mp.Load(rm.GetContentDir, Uri)
mp.Play
End Sub