Android Question highlight text and text to speech

Sub Globals
   Private tts As TTS
   Private jtts As JavaObject
   Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
   tts.Initialize("tts")
   Activity.LoadLayout("1")
   jtts = tts
   Dim e As Object = jtts.CreateEvent("android.speech.tts.TextToSpeech.OnUtteranceCompletedListener", "OnUtterance", Null)
   jtts.RunMethod("setOnUtteranceCompletedListener", Array(e))
End Sub

Sub OnUtterance_Event (MethodName As String, Args() As Object) As Object
   Log(Args(0))
   Return Null
End Sub

Sub TTS_Ready (Success As Boolean)
   If Success Then
     Button1.Enabled = True
   End If
End Sub

Sub Button1_Click
   Speak("This", "1")
   Speak("is", "2")
   Speak("a", "3")
   Speak("This", "4")
End Sub

Private Sub Speak(Word As String, Id As String)
   Dim m As JavaObject
   m.InitializeNewInstance("java.util.HashMap", Null)
   m.RunMethod("put", Array("utteranceId", Id))
   jtts.RunMethod("speak", Array(Word, 1, m))
End Sub