Italian problema con mSoundPool

Buongiorno a tutti. Sto lavorando ad una piccola app in BA4 che dovrebbe riprodurre un brano musicale della durata di circa 7 minuti quando premo un pulsante e che si deve ripetere in loop fino a quando non ripremo lo stesso pulsante.

Questi i punti salienti del codice:

sub Process_Globals:
Private mSoundPool As SoundPool
.
.
end sub

sub activity_create:
mSoundPool.Initialize(1)
ciaomamiID = mSoundPool.Load(File.DirAssets, "Tutto.ogg")
.
.
end sub

Private Sub PlaySound(SoundID As Int)
mSoundPool.Play(SoundID, 1, 1, 100, -1, 1)
End Sub

Sub btnMusic_Click
If btnStop.Text <> "Stop musica" Then
btnStop.Text = "Stop musica"
PlaySound(ciaomamiID)
Else
btnStop.Text = "Musica"
PlaySound(silenzioID)
End If
end sub

Apparentemente funziona ma riproduce solo i primi 10-12 sec e poi riparte.
Avete qualche consiglio?

Grazie molte. E' una app cui tengo moltissimo perchè è un ricordo per la mia mamma recentemente scomparsa.....

Pier