Dim VolumenNuevo As Int
VolumenActual=Telefono.GetVolume(Telefono.VOLUME_MUSIC)
VolumenNuevo=Telefono.GetMaxVolume(Telefono.VOLUME_MUSIC)/5
Telefono.SetVolume(Telefono.VOLUME_MUSIC,VolumenNuevo,False)
RM.ShowRingtonePicker("RM",RM.TYPE_RINGTONE,True,"")