Android Question [Solved] Force TTS via device loudspeaker

Sub AudioManager_Set
    Dim AudioManager As JavaObject
    AudioManager.InitializeStatic("android.media.AudioManager")

    Dim params(2) As Object
    params(0) = AudioManager.GetField("STREAM_MUSIC")
    params(1) = AudioManager.GetField("AUDIOFOCUS_GAIN_TRANSIENT")

    Dim result As Int = AudioManager.RunMethod("requestAudioFocus", params)
    Log("Audio Manager: " & result)
End Sub

Sub AudioManager_Release
    Dim AudioManager As JavaObject
    AudioManager.InitializeStatic("android.media.AudioManager")
    AudioManager.RunMethod("abandonAudioFocus", Null)
End Sub

'part of the Main Code:
        Try
            If TTS1.IsInitialized = False Then
                TTS1.Initialize("TTS1")
        End If

        Dim sr As Float = ((Page_Setup.pm_Speed.SelectedValue-10)*0.05) + 1
        TTS1.SpeechRate = sr    'default = 1

        TTS_Service.Speek(sb_1.ToString,TTS1)
        Sleep(1000)

        TTS_Service.Speek(sb_2.ToString,TTS1)

'in the Code Moule
Sub Speek(Text As String, tts_Target As TTS)
    Dim p As Phone
    Dim jo As JavaObject
    jo.InitializeNewInstance("java.util.HashMap", Null)
    jo.RunMethod("put", Array("streamType", "" & p.VOLUME_ALARM))
    Dim jts As JavaObject = tts_Target
    jts.RunMethod("speak", Array(Text, 1, jo)) '0 = QUEUE_FLUSH, 1 = QUEUE_ADD

End Sub