Italian suoni nella mia app (risolto)

Sub Suona(IdSuono As Int)
Dim k As Int   
    mSoundPool.Initialize(1)
    Select Case IdSuono
        Case 1:k=mSoundPool.Load(File.DirAssets,"Applauso1.wav")
        Case 2:k=mSoundPool.Load(File.DirAssets,"Applauso2.wav")
        Case 3:k=mSoundPool.Load(File.DirAssets,"intro.wav")
    End Select
    mSoundPool.Play(k , 1, 1, 1000, -1, 1)   
End Sub
Sub StopSuono
    mSoundPool.Release
End Sub

Sub Class_Globals
    Private nFilePath As String
    Private nFileNome As String
    Private nLoop As Boolean
    Private nSound As MediaPlayer
    Type SuoniFileName (Spath As String,Sname As String,Sloop As Boolean)
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(path As String, name As String)
    nFilePath=path
    nFileNome=name
    nSound.Initialize
End Sub
public Sub getFilePath As String
    Return nFilePath
End Sub
public Sub getFileNome As String
    Return nFileNome
End Sub
public Sub setIsLoop (s As Boolean)
    nLoop=s
End Sub
public Sub getIsLoop As Boolean
    Return nLoop
End Sub
public Sub Suona
    nSound.Looping=nLoop
    nSound.Load(nFilePath, nFileNome)
    nSound.play
End Sub
public Sub Ferma
    nSound.Stop
End Sub